Dibujando  con  los  Commod 


Romance 
con  el  VIC 
Creando  un 
Vicasso 

Los  “Arrays”  a raya 
Anímate  con  los  sprites 
Curso  Lenguaje  Máquina 
Galería  de  Soft 
Juegos  y • •• 


Commodore 
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“Commodore  World” 

aparte  de  venderse  generalmente  en  kioscos, 
se  encuentra  asimismo  a la  venta 
en  los  siguientes  distribuidores  de  Commodore  y librerías. 


ALICANTE 

Casa  Wagner.  c/  Juan  Carlos  I.  37.  Elda. 

Tel.  (965)  39  03  96. 

Ferretería  Progreso,  c/  General  Jordana.  28.  Elda. 

Tel.  (965)  38  11  45. 

BADAJOZ 

Control  Sistemas.  Avda.  Santa  Marina,  25A. 

Tel.  (924)  25  88  00. 

BARCELONA 

Computer  Service.  Avda.  Abad  Marcet,  325.  Tarrasa 
Tel.  (93)  788  63  77 

Librería  Emilia  Pérez  Radua.  c/Mayor.  35.  Castellar  del 
Vallés.  Tel.  (93)  714  89  51. 

Librería  Michel.  Ronda  Guinardo.  1.  Sardañola. 

Mozart.  c/  Jaime  I.  145.  Mollet.  Tel.  (93)  593  75  01 

BURGOS 

EISA.  c/  Madrid.  4.  Tel.  (947)  20  46  24. 

CANARIAS 

Relax.  Rambla  de  Pulido.  85.  Santa  Cruz  de  Tenerife. 
Tel.  (922)  28  37  05. 

CIUDAD  REAL 

CISA.  c/  D.  Víctor.  15.  Tomelloso. 

Tels.  (926)  51  00  07  - 51  15  72. 

Electrónica  Turrillo.  c/  Pedrera  Baja.  7. 

Tel.  (926)  22  38  67. 

LA  CQRUftA 

Cetronic.  S.  L.  c/  Palomar.  22  Bajo.  Tel.  (981)  27  26  54. 
Photo  Copy.  c/  Teresa  Herrera.  9.  Tel.  (981)  21  34  21. 
Sanlusa,  S.  L.  San  Luis.  46  al  50.  Tel.  (981)  23  07  49. 

GERONA 

Digit  Informática,  c/  Banyoles.  13.  Barri  de  Sant  Roe. 
Olot.  Tel.  (972)  26  94  01. 


HUELVA 

Computerlog.  S.  A.  c/  Tendaleras.  15. 

Tel.  (955)  25  81  99 

MADRID 

Chips  + Tips  - C/Puerto  Rico.  21-23 
Librería  Díaz  de  Santos,  c/  Lagasca.  98. 

Librería  García  Pena,  c/  Cavanilles.  52. 

Librería  Ra-Ma.  c/  Chiquinquira.  28.  Urb.  Columbia. 
Microtronic.  c/  Quinta  del  Sol.  39.  Las  Rozas. 
Multiprensa.  c/  Castelló.  37. 

País  de  los  Microordenadores.  Bravo  Murillo.  18. 

Sonitel  Central,  c/  Clara  del  Rey.  24. 

MURCIA 

Procoinsa.  Ronda  Norte.  27.  Tel.  (968)  23  94  49. 

PALMA  DE  MALLORCA 

AEF.  c/  Balmes.  13.  Tel.  (971)  27  36  66. 

PQNFERRADA 

MicroBierzo.  c/  Carlos  I.  2.  Tel.  (987)  41  74  21. 

SALAMANCA 

Compusoft.  c/  Arco,  1. 

SANTANDER 

Librería  Hernández.  San  Francisco.  15.  Tel.  (942)  22  53  30 

SANTIAGO  DE  COMPOSTELA 

GestyComputer.  Avda.  Romero  Donallo,  25. 

Tel.  (981)  59  87  54. 

SEVILLA 

Papelería  Mora,  c/  Santa  Cruz.  5. 

TARRAGONA 

Oficomplet.  Plaza  de  la  Cinta.  6.  Tortosa. 

Tel.  (977)  44  14  50. 

ZARAGOZA 

ADA  Computer.  Centro  Independencia. 

Paseo  Independencia.  24-26.  Tel.  (976)  29  85  62. 


TIRADA  D€  COMMODOR€  UUORID 
Certificación  de  28.000  ejemplares 

Según  certificado  firmado  por  la  auditoría  ¡nternoaonal  D€lOITT€  HRSKINS  S6LLS,  S.  fl. 

el  5 de  marzo  de  1 984, 

la  tirada  de  Commodore  UJorld  es  de  28.000  ejemplares. 

Este  certificado  se  encuentra  en  las  ofidnas  de  S.I.M.S.fi.  para  comprobación 
de  cualquier  persona  o entidad  que  lo  desee. 
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€DITORini 


Q VIAJES 

--ace  un  mes  —20  de  marzo—  deciamos  que  se 
Hacababa  de  recibir  la  suscripción  n°  4154  Hoy 
—18  de  abril—  a las  7 de  la  larde  acabamos  de 
poner  número  a la  4 701  Sin  necesidad  de  ser  un 
genio  matemático,  se  deduce  rápidamente  que  se 
han  recibido  547  suscripciones  en  un  mes  y que 
tallan  solamente  para  llegar  al  número  5.000  (para 
nuestros  nuevos  lectores  aclararemos  que  el  sus- 
criptor  que  haga  el  número  5.000  ganará  automáti- 
camente un  viaie  a Estados  Unidos  y se  sorteará  otro 
a Inglaterra  entre  los  4.999  primeros)  lo  que  quiere 
decir  que  es  muy  posible  que  en  nuestro  próximo 
número  de  rumo  podamos  comunicar  el  nombre  del 
suscriptor  5 000,  y por  tanto  ganador  del  viaie  a 
EE  UU  y anunciar  la  lecha,  hora  y lugar  en  que 
tendrá  lugar  el  sorteo  para  Inglaterra 


|M — «ccamusimo 


DINERO 

Y VIDEO-JUEGOS 


Y vamos  de 
concursos  y premios 

desaparecida  "La  Codorniz")  al  Servicio  de  Correos 
Viajes  condenado  con  todos  los  agravantes,  que  lleva  más 

■ de  un  mes  volviéndonos  locos  a todos,  suscriptores. 

redacción  y diversos  otros  amigos  Nuestro  número  3 
se  entregó  en  Correos  el  dia  2 de  abril.  Hay  un  impor- 
tante número  de  suscriptores  que  no  lo  han  recibido 
hasta  el  15  ó 16  del  mes  y otros  que  hoy  dia  18 
todavía  están  esperando  (Bueno,  no  esperan  porque 
se  les  ha  enviado  2 * copia,  pero  no  se  trata  de  eso)  y 
un  anunciante  de  Barcelona  a quien  se  le  envió  el  dia 
5 nos  acaba  de  llamar  diciendo  que  lo  acaba  de 
recibir  y con  matasellos,  ¡del  dia  10!..  Todo  un 
récord  se  envía  el  5,  se  matasella  el  10,  se  distn 
buye  el  18.  ¿Quién  da  más  en  lo  que  a velocidad 
eficiencia  y seriedad  se  refiere’  Por  favor,  señores  de 
Correos,  vivimos  a las  puertas  del  siglo  XXI  y en  el 
siglo  XVI,  en  silla  de  posta,  el  correo  tardaba  sola- 
mente una  semana  de  Madrid  a Barcelona. 


Dinero  y 
Video-Juegos 


Gran  Concurso 
Escolar  de 
Programación 


feccionado  los  programas  ganadores  como  para  los 
centros  escolares  que  representen  El  fallo  del  con 
curso  tendrá  lugar  en  el  mes  de  diciembre  y la 
bases  del  mismo  serán  anunciadas  en  nuestro  pró 
ximo  número  de  tumo.  Asi  que  colegios  y escolares, 
ya  podéis  poneros  a trabaiar.  Todos  los  trabaios  pre 
sentados  deben  ser  originales  e inéditos 


MICROELECTRONICA  Y CONTROL 
Y SIMSA  (COMMODORE  WORLD) 


Como  ya  anunciamos  desde  nuestro  primer 
número,  en  |umo  y en  diciembre  tendrá  lugar  un 
sorteo  entre  los  lectores  que  nos  envían  trucos  y 
programas  para  su  publicación.  Nuestra  primera 
idea,  como  sabéis,  lúe  hacerlo  por  grupos  de  edades, 
pero  en  vista  de  que  la  mayoría  no  nos  envían  la 
edad  se  procederá  a sorteo  general.  Habrá  premios 
de  15.000,  10.000  y 5.000  pesetas  asi  como  progra 
mas  de  |uegos  y relojes-calculadoras  para  los  pro- 
gramadores y de  3.000,  2.000  y 1.000  y programas 
de  fuegos  para  Magia.  El  sorteo  será  público  y en 
nuestro  próximo  número  anunciaremos  lugar,  dia  y 
hora  Recordad  que  es  preferible  que  enviéis  los  pro- 
gramas en  cinta  a ser  posible.  Si  vienen  en  listado 
pueden  retrasarse  en  su  publicación,  y que  devol- 
vemos las  cintas  con  un  programa  de  regalo. 


O gran  concurso 
ESCOLAR. 

ATENCION  COLEGIOS, 
ESCOLARES  Y EGB,  BUP  Y FP 

Uno  de  los  grandes  intereses  del  equipo  de 
Commodore  World  es  la  Informática  en  la  Educa- 
ción y la  Educación  en  la  Informática  Estamos  con- 
vencidos de  que  en  muy  pocos  años  el  ordenador  va 
a ser  un  utensilio  tan  familiar  y utilizado,  tanto  en 
casa  como  en  el  trabajo,  como  lo  es  hoy  un  teléfono 
una  máquina  de  escribir  o una  fotocopiadora.  España 
adolece  hoy  de  una  falta  inmensa  de  programas  edu- 
cativos. Pues  bien.  Commodore  World  anuncia  hoy  la 
convocatoria  del  1."  Concurso  de  Programas  y Jue- 
gos Educativos  para  Escolares  y Colegios  en  los  nive- 
les de  EGB,  BUP  y FP  Habrá  importantes  premios 
tanto  para  los  escolares  individuales  que  hayan  con- 


SERVICIO  DE  CINTAS 
({OTRA  VEZ!) 

Aunque  parezcamos  unos  pesados,  queremos 
recordar  a todos  que  el  SERVICIO  DE  CINTAS 
incluye  cualquier  programa  aparecido  en  la  revista 
EXCEPTO  las  colaboraciones  de  lectores  Su  nom 
bre  y dirección  aparece  siempre  junto  al  programa 
para  que  podáis  poneros  directamente  en  contacto 
unos  con  otros. 


...FALTAN  EN  ESTE  NUMERO... 

El  mes  pasado  anunciamos  para  este  número  un 
Programa  de  Evaluación  para  Colegios.  Hemos 
tenido  que  aplazar  un  mes  su  publicación  debido  a 
que  al  traducirlo  y adaptarlo  al  sistema  educativo 
español  hemos  tenido  que  ir  efectuando  diversas 
comprobaciones  y a la  hora  de  entrar  en  imprenta  no 
habíamos  podido  efectuar  la  comprobación  final  y no 
quisimos  arriesgarnos  a que  se  "colara"  un  error  que 
podría  ser  de  importancia. 

Asimismo,  el  articulo  anunciado  "Ahorrando 
Memoria  en  el  VIC",  por  una  tazón  tan  sencillamente 
tonta  como  el  no  habernos  llegado  a tiempo  en  el 
Correo,  aunque  se  nos  han  enviado  2 veces...  lo  que 
nos  lleva  a otro  tema. 


...SERVICIO  DE  CORREOS... 

Ala  prensa  se  le  llama  el  cuarto  poder  y aunque 
no  es  la  misión  de  esta  revista  ejercer  estos 
"derechos  de  poderio"  y la  denuncia  de  servicios  o 
instituciones,  por  lo  que  nos  afecta  el  tema,  metemos 
en  "La  Cárcel  de  Papel"  (Como  decía  la  entrañable  y 


Son  dos  compañías  totalmente  independientes 
una  de  la  otra.  Su  único  interés  en  común  es  el 
servicio  a los  usuarios  de  Commodore  Commodore 
World  publica  dentro  de  sus  páginas  lo  correspon 
diente  a la  antigua  revista  Club  Commodore  que 
publicaba  Microelectrónica;  hay  una  colaboración 
entre  las  dos  firmas  en  el  equipo  de  redacción  de  la 
revista;  Commodore  World  absorbió  a los  suscripto- 
res  de  Club  Commodore  comprometiéndose  a seguir 
cumpliendo  esa  suscripción  hasta  su  fecha  de  reno- 
vación; las  dos  firmas  mantienen  una  magnifica  y 
cordial  relación  y un  espíritu  de  cooperación  pero  sin 
ningún  otro  interés  común.  Esperamos  que  esto 
aclare  el  confusionismo  que  algunos  lectores  pare- 
cen haber  sufrido. 


...Y  CUIDADO 

CON  LAS  IMITACIONES... 

Existe  una  cierta  confusión,  entre  un  número  de 
lectores  que  nos  han  llamado  consultándonos  (jo 
increpándonos!)  sobre  programas  aparecidos  en 
alguna  revista  que  no  es  nuestra  o quejándose  de 
haber  recibido  un  segundo  reembolso,  de  una 
segunda  publicación,  que  no  habían  pedido.  Quere- 
mos deiar  claro  que  la  única  revista  que  publicamos 
sobre  Commodore  es  COMMODORE  WORLD  y que 
cualquier  otra  publicación  que  utilice  un  nombre 
similar  no  es  nuestra  ni  tiene  nada  que  ver  con  nos- 
otros. Asimismo,  nosotros  solamente  enviamos  cobro 
sobre  suscripciones  a aquellas  personas  que  especí- 
ficamente lo  hayan  solicitado  por  boletín,  carta  o 
teléfono  Nunca  hemos  intentado  el  forzar  una  sus- 
cripción no  solicitada. 


INFORMAT  Y CORTE  INGLES 


VIAJES 

A ESTADOS  UNIDOS  E INGLATERRA 
PARA  NUESTROS  SUSCRIPTORES 

¡CUIDADO! 

Solamente  la  revista  COMMODORE  WORLD 
publicada  por  S.I.M.S.A. 

está  ofreciendo  esta  oportunidad  a sus  socios-suscriptores 


Recordamos  a todos  que  estaremos  en  Informal  y 
que  estaremos  en  el  Corte  Inglés. 


PRECIO  DE  COMMODORE  WORLD 

Lamentamos  que  a partir  del  l8  de  julio  no  tene- 
mos más  remedio  que  subir  el  precio  de  nuestra 
publicación  en  un  15%  El  número  de  páginas  ha  ido 
en  aumento  gradualmente,  todos  los  meses  desde 
que  comenzamos  con  42  y asimismo  han  aumentado 
los  costes  de  producción  y correo.  Por  consiguiente  a 
partir  del  1°  de  julio,  la  suscripción  por  un  año  será 
de  2.530  pesetas  y la  venta  la  público  de  315  pese- 
tas por  ejemplar. 
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BOLETIN  DE 

SUSCRIPCION  - 

commodore  world 

NOMBRE 

EDAD 

DESEO  SUSCRIBIRME  A 

niRFrriDN 

COMMODORE  WORLD  POR 

PORI  AMDN 

1 1 PROVINCIA 

UN  AÑO  AL  PRECIO  DE 

TFI FF  MAfCA  Y MDDFI O ItFI  ORDENADOR  

2.200  PTS.  DICHA  SUSCRIP- 

CION  ME  DA  DERECHO, 

ni  inAn  nnrunF  i n rnMPín 

DISTRIBUIDOR  . 

NO  SOLO  A RECIBIR  LA 

API  ir  AnnMFC  A 1 AC  OI  IF  PIFMCA  nFCTINAR  Fl  FOl  UPO 

REVISTA  (ONCE  NUMEROS 

ANUALES)  SINO  A PARTIO- 

r AK  tN  LAb  AL  1 IVILtAUtb 

Deseo  iniciar  la  suscripción  con  el  n®  M 

Adjunto  cheque  de  2.200  pesetas  I I 

Reembolso  más  gastos  del  mismo 
al  recibir  el  primer  n®  de  la  suscripción  i 

(tnvior  o la  dirección  del  dorso) 

Extraniero  S35.  Solamente  por  correo  aéreo 

UUt  bt  UKLrAINILtlN  CIN 

TORNO  A ELLA  Y QUE 
PUEDEN  SER  COORDINA 
CION  DE  CURSOS  DE  BASIC, 
INTERCAMBIOS  DE  PROGRA- 
MAS, CONCURSOS,  ETC. 

EJEMPLARES  ATRASADOS  DE  COMMODORE  WORLD 
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Precio  por  ejemplar  275  ptas. 
Forma  de  pago:  sólo  por  cheque 


Peticionario  

Calle  

Población  D.  P Provincia 

Incluyo  cheque  por  valor  de  pesetas  + 75  de  gastos  de  envío. 


N° 


L ’ 

Título  dpi  orooroma 

SERVICIO  DE  CINTAS 

...  publicado  en  n5  CU 

Título  dpi  nroarama 

...  publicado  en  n°  O 

Título  del  Droarama  . 

...  publicado  en  n°  CU 

Títnln  dpi  nrnnrnmn 

...  aublicado  en  nc  CU 

Precio  por  cinta  850  pesetas.  Gastos  de  envío  75  pesetas.  Forma  de  pago:  sólo  por  cheque. 

Potir  irvnnrio  

Calle 

N°  

Pnnlnr  ion 

..  D.P Provincia  

Incluyo  cheque  sólo 

por  pesetas. 

EJEMPLARES  ATRASADOS  DE  «CLUB  COMMODORE» 

Para  poder  satisfacer  la  creciente  demanda  de  números  atrasados  de  nuestra  Revista,  agotada  en  todas  sus  edi 
ciones,  hemos  puesto  en  marcha  un  Servicio  para  suministrar  fotocopias  de  los  ejemplares  que  nos  sean  solicitados, 
Para  recibir  las  fotocopias  de  uno  o de  varias  ediciones,  no  hay  mas  que  enviarnos  el  boletín  con  los  datos  indicados, 
SERVICIO  DE  FOTOCOPIAS  - NUMERO  DE  LA  EDICION  SOLICITADA. 
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Peticionario:  D.  

Calle  

Población  

Forma  de  pago  sólo  por  cheque 


D.P. 


Provincia 


Precio  de  la  edición  fotocopiada:  250  ptas. 


La  colección  completa  del  0 al  15:  2.500  ptas.  - 100  ptas.  por  gastos  de  envío 
Incluyo  cheque  por ptas. 
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Clave  para  interpretar  los  listados 


Todos  los  listados  que  se  publican 
en  esta  Revista  han  sido  ejecu- 
tados en  el  modelo  correspondiente 
de  la  gama  de  ordenadores  COM- 
MODOKE.  Para  facilitar  la  edición 
de  los  mismos  en  la  Revista  y para 
mejorar  su  legibilidad  por  parte  del 
usuario,  se  les  ha  sometido  a ciertas 
modificaciones  mediante  un  programa 
escrito  especialmente  para  ello.  Para 
los  programas  destinados  a los  orde- 
nadores VIC  -20  y COMMODORE.  64. 
en  los  que  se  usan  frecuentemente  las 
posibilidades  gráficas  del  teclado,  se 
han  sustituido  los  símbolos  gráficos 
que  aparecen  normalmente  en  los  lis- 
tados por  una  serie  de  letras  entre 
corchetes  1 1 que  indican  la  secuencia 
de  teclas  que  se  deben  pulsar  para 
obtener  el  carácter  deseado.  A conti- 


nuación se  da  una  tabla  para  aclarar 
la  interpretación  de  las  indicaciones 
entre  corchetes: 

|CRSRl)|  = Tecla  cursor  hacia  abajo 
(sin  SHIFT) 

[CRSRIJ]  = Tecla  cursor  hacia  arriba 
(con  SHIFT) 

[t'RSRR]  = l éela  cursor  a la  derecha 
(sin  SHIFT) 

[CRSRL]  = Tecla  cursor  a la  izquierda 
(con  SHIFT) 

[HOMFJ  = Tecla  CLR/HOMU 
(sin  SHIFT) 

|CLR|  = Tecla  CLR/HOMU 
(con  SHIFT) 

Las  indicaciones  |BLK]  a | YliLJ 
corresponden  a la  pulsación  de  las 
teclas  de  I a 8 junto  a la  tecla  CTRL. 
Lo  mismo  sucede  con  |RVSON]  y 


| R VSOE | respecto  a la  tecla  CTRL  y 
las  teclas  9 y 10. 

Ll  resto  de  las  indicaciones  constan 
de  la  parte  COMM  o SHIE  seguidas 
de  una  letra,  número  o símbolo  — por 
ejemplo  |COMM+)  o [SI UFA] — . 
listo  indica  que  para  obtener  el  grá- 
fico necesario  en  el  programa  deben 
pulsarse  simultáneamente  las  teclas 
COMMODORE  (la  que  lleva  el  logo- 
tipo) o una  de  SI  1 1 E l y la  tecla  indi- 
cada por  la  letra,  el  número  o el  sím- 
bolo. en  el  ejemplo  anterior:  COMMO- 
DORE y + o SHIE  I y A.  respecti- 
vamente. 

Un  los  signos  gráficos  además  se 
cuenta  el  número  de  veces  que  apa- 
rece. Por  ejemplo.  |7  CRSRR]  equi- 
vale a 7 pulsaciones  de  la  tecla  cursor 
a la  derecha  y |3  SPCJ  tres  pulsaciones 
de  la  barra  espadadora.  ■ 


METEDURAS  DE  PATA 


Para  eliminar  los  problemas  de  sonido 
en  el  programa  •“Artillería”  para  el  C-64. 
publicado  en  nuestro  número  2 de  marzo, 
debe  efectuarse  un  cambio  en  la  linca  3520: 
3520  POR  NC=LC  TO  VL:  POKE 
NC,0:NEXT 


MEJORA  DE  PROGRAMAS 

perfectamente  en  disco,  pero  a veces  da 
error  en  cassette.  Para  subsanar  esta  defi- 
ciencia se  deben  efectuar  los  siguientes 
cambios: 

En  el  listado  del  VIC-20  las  líneas  37  y 
40  deben  ser: 


INTA?":GOSUB63:IF  A$=“C" 
THEN40 

40  OPEN I . I . I ,T$: J=  I :GOTOS9 

En  el  listado  del  C-64  la  linea  400  debe 
ser: 

400  OPEN  I . I . I .T$: J=  1 :GOTO890 


El  programa  "Base  de  Datos"  publicado  37  PRINT"[RVSON]D|RVSOFF]ISCO 
en  nuestro  número  3 de  abril,  funciona  [SPC]0[SPC][RVSON]C[RVSOFF] 


En  el  articulo  “PRINTS  SOFISTI- 
CADOS" se  omitió  el  nombre  del  autor: 
PI  RE  MASATS. 

En  la  sección  DE  TOMO  Y LOMO 
aparecieron  tres  libros  pero  no  sus  pre- 
cios, que  son: 

BASIC  BASICO  1.300  pts. 


ERRORES  DE  IMPRENTA 


VIC-20  GUIA  DEL  USUA- 
RIO   2.300  pts. 

GUIA  DEL  ORDENA- 
DOR PERSONAL  PET/ 

CBM  2.250  pts. 


EN  CORRECCIONES  DEL  MANUAL 
los  comandos  del  soporte  del  DOS  del  C-64 
son: 


9c  NOMBRE  = LOAD  "NOMBRE",8,l 
t NOMBRE  = LOAD  "NOMBRE". 8 + 
RUN 

«-NOMBRE  = SAVE  "NOMBRE", 8 

La  linea  530  del  programa  para  leer  el 
directorio  debe  ser: 

530  IF  AS()CHRS(96)THEN  IF  ASOCHRS 
(160)  THEN  BS=BS+AS 


La  página  28  del  número  3 fue  una  repetición  errónea  de  la  pág.  40  del  n - 2.  por  lo  que  el  texto  no  se  corresponde 


Dibujando 
con  los  Commodore 


En  este  programa  el  cur- 
sor se  convierte  en  cama- 
león, cambiándose  de  color 
y carácter  con  una  sola  pul- 
sación de  tecla,  mientras 
que  tú  dibujas  a tu  aire  con 
el  “joystick” 


El  programa  Dibujar  le  permite 
“dibujar"  en  la  pantalla  del 
VIC-20  a pleno  color,  convirtiendo  el 
carácter  del  cursor  en  diversas  letras  y 
gráficos  y cambiando  el  color  mediante 
la  pulsación  de  un  par  de  teclas. 

El  “joystick"  se  utiliza  para  despla- 
zar el  cursor  por  la  pantalla.  El  cursor 
empieza  siendo  un  signo  de  más  de 


VIC-20 

C-64 


color  rojo.  Mediante  la  pulsación  de 
una  de  las  teclas  numéricas  de  1 a 8 
cambia  el  color  de  cursor  al  color  de 
dicha  tecla.  Si  se  pulsa  otra  tecla,  el 
cursor  se  convierte  en  el  carácter 
representado  por  ella,  y la  pulsación 
de  la  tecla  “shift"  más  otra  tecla  lla- 
mará el  carácter  presentado  a la  dere- 
cha de  la  parte  delantera  de  la  tecla. 

También  resulta  fácil  no  imprimir 


nada,  es  decir,  un  espacio  en  blanco 
en  una  sección  determinada..  Para 
realizar  esto,  se  pulsa  la  tecla  2 para 
que  el  cursor  se  convierta  en  el  color 
blanco.  El  cursor  seguirá  emitiendo 
una  luz  verde  intermitente  a medida 
que  se  desplaza,  para  que  resulte  fácil 
de  localizar,  pero  el  carácter  que  deja 
atrás  será  blanco,  y.  por  lo  tanto,  invi- 
sible contra  el  fondo  blanco  de  la  pan- 
talla. 

La  mayoría  de  las  rutinas  de  inicia- 
lización  son  parecidas  a las  del  pro- 
grama "Tiro  al  Blanco"  que  presen- 
tamos en  C ommodore  World  n°  I . Para 
solucionar  el  problema  de  la  miste- 
riosa memoria  móvil  del  VIC-20  en 
las  diversas  configuraciones  de  apli- 
cación. se  almacena  la  verdadera 
memoria  de  pantalla  y las  posiciones 
de  memoria  en  color  en  CTIAR  y 
CSCREEN,  se  calcula  la  diferencia. 
DF.  y se  inicializa  la  variable  E como 
el  fin  de  la  pantalla  para  nuestros 
propósitos.  El  color  original  del  cur- 
sor. CO.  se  inicializa  en  2 (rojo),  y el 
carácter  del  cursor.  CURS.  en  91.  el 
signo  de  más. 


Variables  Adicionales 

Sin  embargo,  se  definen  varias 
variables  que  no  figuraban  en  el 
articulo  “Tiro  al  Blanco”.  Dos  de 
estas  variables.  PA  y PB,  son  las 
direcciones  de  memoria  de  las  puertas 
utilizadas  para  la  lectura  de  los  pulsa- 
dores del  “joystick".  La  tercera.  DD. 
es  la  dirección  de  lo  que  se  llama  el 
registro  de  direcciones  de  datos 
(DDR). 

Los  “joysticks”  utilizados  tienen 
cinco  pulsadores.  Uno  al  norte,  uno  al 
sur,  otro  al  este  y otro  al  oeste,  más  el 
quinto,  el  botón  de  "disparo".  El 
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1 REM  VERSION  VIC-20 

10  REM  *»«*•*«**« 

20  REM  * * 

30  REM  * DIBUJA  * 

40  REM  * * 

50  REM  ******«*«* 

60  PR I NT " [ CLR I [ 2CRSRD ] " 

70  PR I NTTftB ( 7 ) " [ RVSON ] [ RE  D ] D I BU J A [ RVSOFF ] 
CBLUK2CRSRDJ" 

80  PR I NT " «USA  C SPC ] EL  C SPC I JOVST I CK [ SPC ] 
PARA" 

85  PRI NT" [SPC ] DIBUJAR." 

90  PR  INT " «PULSA  C SPC ] UN  C SPC ] NUMERO  C SPC ] 
PARA" 

100  PR I NT " C SPC ] C AMB I AR [ SPC ] EL  [ SPC ] CO 
LOR  C SPC ] DEL [ 2SPC ] CURSOR . " 

110  PR I NT " «OTRAS  C SPC ] TECLAS [ SPC ] C AMB 
IAN" 

1 20  PR I NT " [ SPC ] L A [ SPC ] FORMA  C SPC ] DEL [ SPC I 
CURSOR. " 

1 30  PR I NT " [ SPC ] PULSA [ SPC ] EL  C SPC ] BOTO 
NCSPCIDE" 

140  PR I NT " D I SPARO  C SPC ] PARA [ SPC I EMPEZ 
AR. 11 

150  PRINT"[2CRSRD]“ 

160  PR I NT  T AB  < 3 ) " C RVSON ] [ ORN ] PULSA  C SPC ] 

UNA  C SPC ] TECLA [ BLU I " 

170  GETA*  IFA$="  "THEN170 
180  CURSR-91 
190  CO-2 

200  PRINT" CCLR]  " 

210  CSCREEN»37388+4« < PEEK < 36866 ) AND 1 
28) 

220  CHAR=4« < PEEK 36866 ) AND  1 28  ) ♦64* í P 
EEK 036869) AND 120) 

230  E-CHAR+505 

240  B1=CHAR 

250  DF-CSCREEN-CHAR 

260  DD=37154  PA=37137 : PB=3?152 : P0KE3 

7139,0 

270  GOTO350 

280  REM  LEE  JOVST ICK 


290  POKEDD , 1 27  S3*- < ( PEEK < PB  > AND 1 28 ) 
=0 ) • POKEDD , 255 

300  P=PEEK ( PA ) = FR=- ( ( P AND32 ) =0 ) 

310  S0= < PAND4  ) =0  ) 

320  S2=C<PAND16)=0> 

330  Sl*-< (PAND8)=0) 

340  RETURN 
350  P0KEB1 , CURSR 
360  P0KEB1+DF , 3 
370  GOSUB650 
380  P0KEB1+DF , CO 
390  GOSUB290 

400  CT=PEEK<197) : IFCT-64GOTO470 
410  GETA*  : IFA#*" "GOTO470 
420  RE=ASC(A») 

430  IFRE>56ORRE<49GOTO460 
440  C0=RE-1 
450  GOTO470 
460  CURSR=ASC< A*) 

470  IFS3O1GOTO520 
430  IFS3O1GOTO520 
490  B1=B1+1 
500  IFB1>ETHENB1=E 
510  GOTO350 

520  I FFR= 1 THENPR I NT " [ CLR ] " 

530  IFS2O-1GOTO570 
540  B 1 =B 1 — 1 

550  I FB 1 <CHARTHENB 1 =CHAP 
560  GOTO350 

570  IFS0O- 1 THENG0T06 1 0 
530  Bl=Bl-22 

590  IFBl<CHARTHENBl=Bl+22 

600  GOTO350 

610  IFS1O1GOTO350 

620  Bl=Bl+22 

630  IFBl>ETHENBl=Bl-22 

640  GOTO350 

650  P0KE36878, 15 

660  P0KE36874 . 255 

670  POKE36874.0 

680  RETURN 


estado  de  estos  pulsadores  se  lee  a 
través  de  dos  puertas,  utilizando  dife- 
rentes bits  para  diferentes  pulsadores. 
Cada  bit  puede  ser  utilizado  sola- 
mente para  la  entrada  o la  salida  en 
un  momento  determinado,  asi  que 
hay  que  indicarle  al  ordenador  lo  que 
tiene  que  hacer. 

Existe  una  puerta  que  no  se  utiliza 
para  otra  cosa  a lo  largo  del  juego,  asi 
que  puede  ser  inicializada  como 
entrada  mediante  un  simple  comando 
"Poke”  en  el  registro  de  dirección  de 
datos  en  37 139.  Esto  se  realiza  en  la 
línea  260. 

Sin  embargo,  el  otro  registro  de 
dirección  de  datos  también  se  utiliza 
para  la  entrada/salida  del  teclado.  Si 
se  inicializara  solamente  como  entrada, 
seria  imposible  utilizar  el  teclado  para 
otras  tareas  a lo  largo  del  programa. 
Este  registro  de  dirección  de  datos  se 


define  como  DD,  se  hace  un  "Poke" 
para  la  entrada  antes  de  cada  lectura 
del  “jovstick”  y vuelve  a su  estado 
normal  en  seguida. 

A diferencia  de  otras  operaciones 
de  “Peek".  o búsqueda  de  un  número 
determinado  dentro  de  una  sola  posi- 
ción de  memoria,  en  este  caso  los  bits 
individuales  dentro  de  un  byte  son 
significantes.  Es  posible  descubrir  el 
estado  de  un  bit  determinado  mediante 
el  uso  del  operador  AND.  Si  se  realiza 
una  operación  AND  de  un  número  con 
la  correcta  potencia  de  dos.  se  puede 
saber  cómo  se  ha  inicializado  dicho 
bit. 

La  lectura  del  “joystick"  se  hace  en 
las  líneas  290  a 340.  Primero,  el  DD  se 
inicializa  como  entrada  haciendo  un 
"Poke"  en  DD  con  127.  A continua- 
ción. el  pulsador  tres  se  lee  mediante 
una  operación  "Peek’  en  la  puerta  PB. 


y una  operación  AND  de  128  con 
dicho  valor.  Finalmente.  DD  se 
vuelve  a su  estado  normal  mediante 
una  operación  de  “Poke”  con  255. 

Los  otros  cuatro  pulsadores  se  leen 
mediante  una  operación  “Peek"  en  la 


CENTRO  DE 
INFORMATICA 
Las  Rozas  - Majadahonda 
EMPEZAMOS 
Cursillos  en  BASIC 
cada  15  días 

Directamente  en  ordenadores 
VIC-20,  COMMODORE  64 
SPECTRAVIDEO 

Tfno.:  637  31  51 


Commodore  World  Mayo  1484/9 


DIBUJANDO  CON  LOS  COMMODORE 


10  REM  ************ 

20  REM  * * 

30  REM  * DIBUJA  * 

35  REM  * C-64  * 

40  REM  * * 

50  REM  ************ 

60  DIMD<10,2) 

70  DATA-40, 40, 0,-1, -41, 39,0, 1,-39,41 

80  FORX=1TO10 
90  READDÍX, 1 ) 

100  NEXTX 

110  V*53248 

120  PRINT" CCLR] " 

130  B 1 = 1 024 
140  DELTA* 1 
150  P0KE53281 , 1 
160  V0LUME=54296 
170  VCE=54273 
180  WAVE*54276 
190  ATTACK=54277 
200  SUS*54278 
210  CURSR-43 : C0=2 
220  GÜTO300 
230  JV-PEEKX  56320) 

240  J1-JVAMD16 
250  Fl*15-< JVAHD15) 

260  JV=PEEK( 56321) 

270  J2* JVAND16 


280  F2= 1 5- < JVAND 15) 

290  RETURN 
300  GOSUB230 

310  GETAS  ■ IFASO"  "THENGOSUB430 
320  GOSUB480 

330  DELTA=0 : IFD<F1 , 1 )<>0THENDELTA*D< 
Fl,  1) 

335  IFD<F2,  1 >O0THENDELTA=D<F2,  1 ) 

340  B1=B1+DELTA 

350  IFB1>2023THENB1=B1+<D<F1, 1)*-1) 
360  IFB1<1024THENB1"B1+<D<F1 , 1)#-1 ) 
370  IFB1>2023THENB1*B1+<IKF2, 

380  IFBK1024THENB1=B1  + <D<F2,  1)*-1) 
390  POKEBl , CURSR : POKEB 1 +54272, CO 
400  I FCO* 1 THENPOKEB 1 +54272 , 3 • POKEB 1 + 
54272, CO 

410  I F J 1 =0ORJ2=0THEHPR I NT " CCLR ] " 

420  GOTO300 

430  IFA$<"l"ORAf>"8"THEN460 
440  CO=VAL ( AS  > - 1 
450  RETURN 
460  CURSR=ASC<A*> 

470  RETURN 
480  POKEVOLUME, 15 
490  POKEWAVE, 33 
500  PGKEATTACK, 128 
510  POKESUS, 128 
520  POKEVCE , 72 
530  POKEVOLUME, 0 
540  RETURN 


puerta  PA.  el  almacenamiento  de 
dicho  valor  en  P.  v una  operación 
AND  de  P.  con  4.  8.  16  y 32.  Esto 
proporciona  el  estado  del  pulsador  0. 
I.  2 y el  botón  de  disparo,  respectiva- 
mente. Todo  esto  se  puede  realizar 
varias  veces  por  segundo,  para  que  el 
programa  tenga  siempre  disponible  el 
estado  actual  del  "joystick". 

Dibujando  en  pantalla 

Se  dibuja  en  pantalla  haciendo 
un  “Poke"  con  el  número  que 
corresponde  al  carácter  del  cursor  en 
la  posición  de  memoria  almacenada 
en  la  variable  Bl.  y con  el  color 
deseado  en  BI+DF.  La  variable  Bl  se 
modifica  según  la  dirección  en  que  se 
encuentra  el  “joystick". 

Al  igual  que  en  “Tiro  al  Blanco". 
Bl  puede  ser  incrementada  o decre- 
mentada  por  uno  desplazando  el 
“joystick”  a la  derecha  o a la 
izquierda.  Sin  embargo,  también  es 
posible  desplazarlo  hacia  arriba.  Para 
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La  mayoría 
de  las  rutinas 
de  iniciación 
son  parecidas  a 
las  ael  programa 
“Tiro  al  Blanco”. 
Sin  embargo, 
se  definen 
varias  variables 
que  no  figuraban 
en  dicho  artículo 


hacer  esto.  Bl  es  dccremcntada  por 
22.  o una  linea  entera.  Para  despla- 
zarlo hacia  abajo,  B2  se  incrementa 
por  22.  En  cualquier  caso,  el  pro- 
grama no  permitirá  que  Bl  sobrepase 
E (fin  de  pantalla),  o que  sea  menor 
que  CHAR  (el  principio  de  la  memo- 
ria de  pantalla). 

Aún  cuando  el  ordenador  esté  veri- 
ficando constantemente  el  movimiento 
del  “joystick".  también  está  atento 
para  ver  si  se  ha  pulsando  cualquier 
otra  tecla.  El  ordenador  sabe  si  una 
tecla  está  siendo  pulsada  haciendo  un 
“Peek"  en  la  posición  197.  Si  el  valor 
contenido  en  197  es  igual  a 64.  no  hay 
ninguna  tecla  pulsada.  De  no  ser  asi.  el 
programa  lee  AS.  Si  A$  es  una  tecla 
numérica,  el  programa  modifica  el 
color  de  CO.  Si  AS  no  es  una  tecla 
numérica,  el  cursor  se  convierte  en 
AS. 

Aparte  de  esta  entrada,  el  pro- 
grama sólo  responde  al  botón  de  dis- 
paro. 

Si  éste  ha  sido  pulsado,  se  borra  la 
pantalla,  y se  puede  volver  a dibujar. 


ELEKTROCOMPUTER  ■ PRESENTA  SUS  NUEVOS  PRODUCTOS  PARA  EL  V I C-  2 0 


Y EL  C0MM0D0RE-64.  DATAMASTER  64  Y CONTROL  A DOR  • C 8 , QUE 
AMPLIAN  LAS  POSIBILIDADES  DE  SU  ORDENADOR. 

DE  VENTA  EN  DISTRIBUIDORES  AUTORIZADOS  DE  TODA  ESPAÑA. 


* DATAMASTER  64  _ SOFISTICADA  BASE  DE  DATOS  PARA  EL  C—  64  . 


PENSADA  PARA  TRABAJAR  CON  LA  UNIDAD  DE  DISCO  1541.  SIENDO  MUY 

' 

VERSATIL  APROVECHA  AL  MAXIMO  LA  CAPACIDAD  DE  MANIOBRA  Y ALMA- 

• ' " ‘ 

.•••*’  \ 

- CENAMIENTO  . NUMERO  DE  REGISTROS  VARIABLE'EJ.  5000  DE  30  CA- 


RACTERESFORMATE  ADOS  Y COPIAS  PROGRAMADAS  . SALIDA  A IM 


PRESORA  (PARALELO  CENTRONICS  Y SERIE  RS  232  ) CHEQUEO  OPERACIONES 
DISCO  . GARANTIA  3 MESES  . MANUAL  COMPL.  EN  CASTELLANO  - P.  V.P.  11.800'  PTAS. 
'CONTROLADOR  • C8  _ CONTROLADOR  DE  8 RELES 
PARA  EL  VIC  20  Y EL  C 64  . DE  FORMA  MUY  SENCILLA  PODE-  Á 


MOS  HACER  HASTA  255  COMBINACIONES  ENTRE  LOS  8 RE 


LES  , CON  UN  CONSUMO  DE  1000  W.  A 220  VOLT.  CADA  UNO 


CON  LO  CUAL  PODEMOS  ACCIONAR  TODO  TIPO  DE  LUCES  O 
MECANISMOS  . INSTRUC.  INCLUIDAS.  3 MESES  GARANTIA 
- P.V.P.  9.800'  PTAS. 


ñ 
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Romance  con  el  VIC 

Por  Diego  Romero. 


Hemos  recibido  nume- 
rosas cartas  pidiéndo- 
nos que  dedicásemos  algún 
artículo  al  modo  de  utilizar 
las  capacidades  musicales 
del  VIC-20  y otras  solici- 
tando información  sobre  los 
comandos  de  sonido  del 
Super-Expander.  Para  inten- 
tar satisfacer  a todos  los 
lectores  que  lo  han  solici- 
tado y como  pensamos  que 
el  mejor  modo  de  compren- 
der algo  es  usándolo,  aquí 
presentamos  dos  programas 
para  demostrar  el  modo  de 
utilizar  el  sonido  en  el  VIC. 


El  programa  que  aparece  en  el  pri- 
mer listado  se  puede  ejecutar  en 
cualquier  VIC  sin  ampliación  de  memoria 
ni  cartucho  Super-Expander.  se  trata  de 
un  programa  que  ejecuta  la  melodía  del 
ROMANCE  ANONIMO.  El  segundo  lis- 
tado utiliza  el  cartucho  super-expander  y 
reproduce  la  misma  melodía.  Como 
podéis  ver  el  cartucho  nos  evita  tener  que 
realizar  gran  número  de  operaciones 
POKE  y utilizar  gran  cantidad  de  senten- 
cias DATA,  simplificando  la  obtención  de 
melodías  con  nuestro  micro-ordenador. 

Los  que  tengan  oído  musical  podrán 
comprobar  que  el  mió  no  lo  es.  y si  quie- 
ren corregir  alguna  nota  que  este  equivo- 
cada pueden  hacerlo,  para  ello  daré  una 
serie  de  explicaciones  sobre  los  dos 
programas. 

En  el  primer  listado  los  valores  de  las 
notas  son  los  que  aparecen  en  las  lineas 
DAT  A y deben  ser  todos  mayores  que  1 28 
para  producir  sonido  (deben  oscilar  entre 
128  y 255).  y los  valores  que  les  siguen  y 
oscilan  entre  6 y 18  son  las  duraciones  de 
cada  nota.  Para  introducir  silencios 


debemos  hacer  que  la  nota  sea  0 y el 
tiempo  deseado.  El  silencio  entre  notas  lo 
regula  el  lazo  FOR-NEXT  de  la  linca  60. 
si  aumentamos  el  número  de  la/os  aumen- 
taremos el  tiempo.  El  lazo  FOR-NEXT  de 
la  linea  40  es  el  encargado  de  regular  la 
duración  de  las  notas,  podéis  cambiar  el 
número  de  lazos  para  cambiar  la  veloci- 
dad de  ejecución  de  la  melodía. 

En  el  manual  de  usuario  del  VIC-20 
tenéis  una  tabla  con  los  valores  que  tenéis 
que  utilizar  para  obtener  cada  nota  si 
deseáis  cambiar  alguna  nota  o componer 
otra  melodía.  No  obstante  la  reproduci- 
mos aqui  para  si  alguien  no  tuviera  a 
mano  el  manual. 

El  segundo  listado  es  para  el  VIC  con 
Super-expander.  es  mucho  más  corto,  no 
contiene  números  misteriosos  (salvo  algu- 
nas excepciones),  y las  notas  se  represen- 
tan directamente.  Explicará  un  poco  las 
cosas  raras  que  aparecen  en  este  listado. 

En  primer  lugar  aparece  el  carácter  que 
activa  el  sonido  con  el  cartucho,  se  trata 
del  [CTRL*-]  en  la  primera  línea  PRINT, 
se  obtiene  pulsando  la  tecla  de  control  y la 
flecha  a la  izquierda,  que  es  la  tecla 
situada  en  el  extremo  superior  izquierdo 


ís-r 

-r 


del  teclado. 

La  P indica  al  ordenador  que  deseamos 
ver  en  la  pantalla  las  órdenes  que  está  eje- 
cutando. esto  nos  ayudará  a ver  los  efec- 
tos de  las  órdenes  que  cambiemos. 

V9  pone  el  volumen  al  máximo,  el 
volumen  puede  oscilar  entre  cero  y nueve. 

S2  indica  que  queremos  utilizar  el 
segundo  generador  de  sonido  del  VIC-20 
(el  tenor  según  el  manual).  Si  cambiamos 
el  número  que  sigue  a la  S cambiaremos  el 
generador  que  utilizamos. 


Para  VIC-20 
con  o sin 
Super-Expander 


ROMACE:  CON  SUPER-EXPANDER 

1 0 PR I NT " C CTRL*] PV9S2T603EEEEBCC02Bñ 
ñÜ3CEñññflGFFEDDEFEFE#GFEEDCC " ; 

20  PR I NT " 02BñBBBB03C02BflftñT3fiT 603#C# 
C#C#C02Bñft#G#G#GG#G03#F  #F#F  #F#G#F #FE 
EE"; 

30  PR I NT " #F #Gflñfiñ#GG#F #F#F#FEB#C#C#C 
#CDQ2BflFlFIT  SflT  6 " 

35  F0RN= 1 T 03000 : NEXT 
40  RUN 
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ROMANCE:  SIN  SL'PER  EXPANDER 


10  PÜKE36878  , 1 5 

◄ 

1 30  D8T8225 ,6/223/6/219/6/223/6/ 223 , 

20  RE8DN, T : I FH=- 1 THENREST ORE  GÜTQ20 

6 / 223  / o / 223  > 6 / 225  • 6 .■  223 ,6. <219/6/219/ 

30  P0KE36876/N 

6/219/6 

40  FORZ=0TOT*50 • NEXT 

140  D8T8219/ 12/ 0/ 2/ 227/6/ 227/ 6/ 227/6 

50  POKE36876.0 

,227/6/223/ 6.<  219/ 6/ 219/ 6/ 217/ 6/217/ 6 

60  FÜRZ=0TO 100  NEXT 

,217,6/215/6 

70  GOT020 

1 50  Ii0T82 17/6/234/6/234/6/234,.  6 , 234 , 

100  D8T8231 ,6, 23 1 , 6 , 23 1 , 6 , 23 1 , 6 , 228 , 

6/236,6/234/6/234/6/231/6/231,6/231/ 

6 < 225/  6 , 225 , 6 , 223  • 6 , 2 1 9 • 6 , 2 1 9 .•  6 

6/234/6 

110  DRTR225 , 6 , 23 1 , 6 , 237 , 6 , 237 , 6 , 237 , 

1 60  D8T 8236  / 6 , 237 / 6 / 237 / 6 / 237 / 6 / 237 , 

6 / 237  , 6 > 235  , b .•  232  , 6 / 232  .•  6 , 23 1 > 6 .•  228  .• 

6,236/6/235.6/ 234 ,6,234,6, 234 , 6 , 234 , 

6 

6,231/6 

1 20  11818228  ,6,231/6,232,6,231/6 232 , 

1 70  D8T8228, 6 , 227 ,6,227,6/ 227 , 6 , 227 , 

6 t 1 > ó .•  236  / S f ; c • f 23  1 fSf  23 1 > t*  > 223  * 

6/228/6/223/6/219/6,219,6/219/6/219/ 

6/225/6 

► 

18,0/40, -1,-1 

T6  pone  el  tiempo  de  ejecución  de  cada 
nota,  probar  a cambiarlo  y ver  el  efecto 
sobre  las  notas  que  lo  siguen. 

03  selecciona  la  tercera  octava  de  las 
tres  de  que  dispone  el  VIC.  si  ponemos  02 
usaremos  la  segunda  y con  01  la  primera. 

Finalmente  encontramos  las  letras  C. 
I),  E,  F,  G,  A y B que  corresponden  a las 
notas  de  la  escala  musical  Do.  Re.  etc. 


Para  obtener  bemoles  debemos  proceder 
la  letra  con  el  símbolo  $,  y los  sostenidos 
irán  precedidos  de#. 

Para  intercalar  silencios  entre  dos  notas 
pondremos  una  R entre  ellas,  esto  intro- 
ducirá un  Retardo  (silencio  o Rest)  equi- 
valente a la  duración  de  una  nota. 

Para  que  el  VIC  continúe  en  el  modo 
musical  al  pasar  al  siguiente  PRINT  es 


necesario  terminar  la  linca  con  punto  y 
coma  (;).  ya  que  cualquier  retorno  de 
carro  enviado  a la  pantalla  desconectaría 
el  sonido. 

Espero  que  estos  dos  programas  y las 
explicaciones  sirvan  para  aclarar  un  poco 
el  modo  de  utilizar  el  sonido  en  el  VIC  y 
cómo  aprovechar  los  comandos  del  Supcr- 
Expandcr. 


Centro  COMMODORE  (SAKATI,  S. A.) 

NOTICIAS  DE  SOFT 

LISTA  DE  PROGRAMAS  PARA  SU  COMMODORE  64 
MANUALES  EN  CASTELLANO 


Programas  de  aplicación 

Programas  de  utilidades 

Superbase  64 

disco 

22.500  Pts 

Extensión  de  basic 

cartucho 

25  000  Pts 

Base  de  datos  II 

disco 

5.000  Pts 

Música  64 

disco 

5.000  Pts 

cinta 

4 000  Pts 

cinta 

4 000  Pts 

Busicalc 

disco 

8 500  Pts 

Gráficos  64 

disco 

8.000  Pts 

cinta 

8 000  Pts 

cinta 

7 500  Pts 

Control  de  almacén 

disco 

35.000  Pts 

Velosak 

cinta 

2.000  Pts 

Mailing 

disco 

8 000  Pts 

Tagsort 

cinta 

2.000  Pts 

Lápiz  óptico 

disco 

14  000  Pts 

Arrow 

cartucho 

12  000  Pts 

cinta 

13.500  Pts 

Compactor 

cinta 

3.000  Pts. 

Monitor  código  máquina 

disco 

6 500  Pts 

Superbasic 

disco 

7 500  Pts 

cinta 

6.000  Pts 

cinta 

6.900  Pts 

Desensambledor 

cinta 

2 000  Pts 

Programas  de  juegos 

Palillos 

Caktus 

Aterrizaje 

Cornecocos 

King  Kong 

Laberinto 

Comando  espacial 


r— 


Batalla  espacial 
Precio  por  cinta 
Precio  en  disco 
Ajedrez  en  cinta 
en  disco 
Jarama  84 
Camellos 


2 000  Pts 
2 500  Pts 
4 000  Pts 
4 500  Pts 


Araña  lunar 
Defensa  lunar 
El  lago  de  los 
tiburones 
El  hortelano 
La  bruja 

Guerra  de  ztlones 


Centro  COMMODORE 


SOFTWARE  PROFESIONAL 

Teléf.:  256  77  94, 

Ardemans,  24  félex  42222  CICI  E 


Madrid-28 
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EXCURSION  POR  LA  MICROPROGRAMACION 


Cursillo  de  Lenguaje 
Máquina  —II— 


En  el  número  anterior  estudiamos  los  sistemas  de 
numeración  que  vamos  a utilizar  más  frecuen- 
temente en  código  máquina,  y en  este  número  debe- 
mos echar  una  ojeada  al  protagonista  principal  de 
nuestros  desvelos  y desdichas  en  estas  lides,  como  ya 
habréis  imaginado  se  trata  de  la  CPU. 


Por  Diego  ROMERO 
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Para  comenzar  a estudiar  las  instruc- 
ciones de  un  programa  en  código- 
lenguaje  máquina,  debemos  conocer  la 
csiruclura  de  los  registros  sobre  los  que 
actuarán,  las  banderas  o flags  del  registro 
de  estado  de  la  CPU  y algo  del  modo  en 
que  opera  este  chip  al  ejecutar  los  pasos  de 
un  programa. 


Las  dos  Unidades  Centrales  de  Proceso 
(6502  y 6510)  son  muy  parecidas,  la  dife- 
rencia reside  en  que  la  6510  tiene  un  port 
paralelo  de  ocho  hits  incorporado,  este 
port  lo  estudiamos  en  “el  misterio  de  los 
pokes".  por  tanto  nos  limitaremos  a estu- 
diar la  6502.  lista  CPU  sirve  para  un  sis- 
tema microcomputador  de  8 bits  de  datos, 
con  un  bus  de  direcciones  de  16  bits,  con 
él  podremos  dirigirnos  a 2“=65536  direc- 
ciones de  memoria,  esta  cantidad  se  suele 
llamar  64  K. 

Estas  son  las  características  más  impor- 
tantes de  la  información  del  fabricante: 

— Alimentación  sencilla  de  + 5V. 

— Tecnología  de  puerta  de  silicio  de 
canal  N. 

— Procesamiento  paralelo  de  8 bits. 

— Juego  de  56  instrucciones  diferentes. 

—Aritmética  decimal  y binaria. 

— Trece  modos  de  direccionamicnto. 

—Capacidad  de  direccionamicnto  inde- 
xado. 

— Stack  programable. 

— Tres  tipos  de  interrupciones  (masca- 
rabíes.  no  cnmascarables  y por  programa). 

— Rango  de  memoria  dircccionable  de 
64  K (6502)  y más  de  88  K (6510). 

— Puede  utilizar  cualquier  tipo  de 
memoria. 

— Capacidad  de  DMA  (acceso  directo  a 
memoria). 

—Frecuencia  de  reloj  de  I ó 2 Mil/. 

— Bus  compatible  con  el  sistema  6800 
de  Motorola. 

En  la  figura  I aparece  el  diagrama  de 
bloques  internos  de  la  CPU  6502.  es  bas- 
tante complejo,  pero  de  momento  vamos 
a fijarnos  en  que  está  dividido  en  dos  par- 
tes: la  sección  de  registros  y la  sección  de 
control. 

La  sección  de  registros  se  ocupa  de  todo 
el  procesamiento  de  dalos,  mientras  que  la 
de  control  se  encarga  de  descifrar  cada 
una  de  las  56  instrucciones  y generar  una 
secuencia  de  señales  peculiar  que  obliga  a 
la  sección  de  registros  a realizar  las  opera- 
ciones correspondientes  a la  ejecución  de 
esa  instrucción. 

Las  instrucciones  entran  en  el  procesa- 
dor por  el  bus  de  datos,  son  guardadas 
temporalmente  en  el  registro  de  instruc- 
ciones y decodificadas  por  el  decodificador 
de  instrucciones. 

La  unidad  de  control  de  tiempos  se 
encarga  de  asegurar  la  correcta  secuencia 
de  señales  para  esa  instrucción. 


PCH  y PCL. — Partes  alta  y baja  del 
contador  de  programa. 

Input  Data  Latch  (DL),— Registro 
temporal  de  datos  de  entrada. 

Data  bus  buffcr. — Es  un  separador  que 
permite  a la  CPU  manejar  mas  circuitos 
externos  sin  sobrecargar  sus  lineas  inter- 
nas. 

Intcrrupt  Logic. — Lógica  de  interrup- 
ción. Establece  las  prioridades  entre  los 
distintos  tipos  de  interrupción, 

lnstruction  Decoder. — Decodificador  de 
Instrucciones,  descifra  lo  que  significan 
éstas  y ordena  la  ejecución  del  procedi- 
miento necesario. 

Processor  Status  Regisier  ( P). — Registro 
interno  de  estado  de  la  CPU.  sirve  para 
saber  cuándo  un  resultado  es  negativo, 
demasiado  grande,  etc. 

lnstruction  regisier.— Registro  de  ins- 
trucciones. es  donde  se  almacenan  mien- 
tras se  ejecutan. 

Timing  Control. — Control  de  tiempos. 

Clock  generator. — Generador  de  reloj, 
genera  la  señal  necesaria  para  controlar 
todas  las  transferencias  de  registros  y ope- 
raciones de  la  CPU. 

La  función  del  registro  de  estado  de  la 
CPU  es  la  de  saber  cuándo  un  resultado 
fue  negativo,  cero,  demasiado  grande, 
etc.,  para  poder  tomar  decisiones  en  fun- 
ción del  resultado  de  la  última  operación 
que  realizó  el  procesador.  Sus  banderas 
son: 

— Carrv  (C). — bit  0.  indica  si  arrastra- 
mos una  unidad  de  la  operación  anterior 
(cj.  sumando).  ( I «verdad). 

— Zcro(Z). — bit  I.  indica  si  el  resultado 
de  la  última  operación  fue  cero  ( I resul- 
tado cero). 


Al  programar  en  lenguaje  máquina  es 
necesario  conocer  los  registros  internos  de 
nuestra  CPU.  son  los  que  aparecen  en  la 
figura  2.  F.I  acumulador  A.  los  registros 
Índices  X e Y junto  con  el  puntero  de 
stack  S y el  de  estado  P son  registros  de  K 
bits,  mientras  que  el  contador  de  pro- 
grama es  de  ló  bits. 

Se  han  respetado  los  nombres  en  inglés 
en  los  dibujos  para  acostumbrarnos  a 
conocerlos  por  las  siglas  que  aparecerán 
en  casi  todos  los  programas,  libros  y artí- 
culos que  podamos  encontrar  sobre 
código  máquina,  pero  para  facilitar  las 
cosas  a los  que  no  sepan  inglés,  incluimos 
tina  lista  de  los  equivalentes  en  español: 

ABH  y ABL  (Address  Bus  High/Low). — 
Partes  alta  y baja  del  bus  de  direcciones. 

Index  Regisier  X/Y.—  Registros  indices 
X c Y 

Stack  Pointer  regisier. — Registro  pun- 
tero del  Stack  o pila  (S). 

Al  U. — Unidad  Aritmética  Lógica,  se 
encarga  de  todas  las  operaciones  aritméti- 
cas y lógicas. 

Accumulator. — Es  el  registro  principal 
de  trabajo,  el  acumulador  (A). 
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¿LE  PARECE  LENTO  SU  CASSETTE? 

Tenemos  la  solución, 
necesita  nuestro  programa  FAST-TURBO, 
multiplica  por  1 0 su  velocidad 
(como  una  unidad  de  discos), 

■ .i  pera  Commodore  64.  far. 


Usted  lo  lee  sólo  una  vez 
y leerá  todos  los  programas 
con  gran  velocidad 

3.500  Pts. 

ASTOC-DATA 

Hardware  y Software-Systems 
Sarela  de  Abajo 
Santiago  de  Compostela 
Tel.  599533 


EXCURSION  POR  LA  MICROPROGRAMACION 

PROGRAMMING  MODEL 


7 3 

| A ACCUMULATOR  A 

» 1 

I V 1 INDEX  REGISTER  Y 

7 1 

I X llNOEX  REGISTER  X 

16 7 1 

I RCH  | RCL  Iprogramcounter  -pc- 

8 7 1 

I ' (•  S 1 STACK  POINTER  "S" 


n|v|  i B joj ' |?Tc|p«oce$sor  status  reg  t 


L 


CARRY  1 - TRUC 

ZERO  1 - RESU17  HRO 
IRO  DISA8LE  t ■ 3ISASLE 
DECIMAL  MODE  I • TP.l'S 

BRK  COMMAND  1 - 6IY, 

OVERFLOM  I • TRUE 
NEGATIVF  I • NEG 


REGISTROS  INTERNOS  DE  LA  C.P.U. 

(Fig.  2) 


—IRQ  disablc(l). — bit  2.  sirve  para  des- 
habilitar las  interrupciones  mascarables 
( l=dcshabilitadas). 

—Decimal  mode  (D). — bit  3.  indica  si 
la  CPU  trabaja  en  modo  decimal  o binario 
( 1=  decimal) 


— BRK  command  ( B). — bit  4.  indica  si 
una  interrupción  ha  sido  producida  por 
una  instrucción  BRK  ( I =BR K ). 

— Overflow  (V).— bit  6.  indica  si  hubo 
sobrecarga  ( l=sobrecarga). 

— Negativo  (N). — bit  7.  indica  si  el 


resultado  de  la  última  operación  lúe  nega- 
tivo (l=negativo). 

Con  este  pequeña  descripción  del  inte- 
rior de  nuestro  procesador,  espero  que  sea 
suficiente  para  poder  pasar  a la  próxima 
cstapa  que  será...  lenguaje  máquina!!! 


I 

NOTICIAS 

COMMODORE  WORLD 


Tronik  inaugura  en  Barcelona  un  centro 
integrado  en  la  enseñanza  de  informática 
y venta  de  ordenadores  personales 


TRONIK  aparece  en  el  mundo  infor- 
mático español  con  la  puesta  en  marcha 
de  un  centro  de  enseñanza  exclusiva- 
mente informático,  con  aulas  especial- 
mente diseñadas,  un  profesorado  alta- 
mente especializado  y cursos  modulares 
para  niños  y adultos,  con  el  que  espera 
dar  respuesta  a las  exigencias  del  mismo 
en  el  ámbito  personal  y familiar. 

Cuenta  con  una  amplia  gama  de 
micros  de  las  marcas  más  conocidas 
incluyendo  el  COMMODORE  64  y el 
VIC  20,  asi  como  con  una  completa  pro- 
gramoteca  con  gran  cantidad  de  juegos  y 
programas  escogidos  entre  los  mejores 
del  mercado,  tanto  nacional  como  inter- 
nacional, y una  extensa  biblioteca  sobre 
micro-informática. 
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CREAR  UN  VICASSO 

con  Caracteres  Personalizados 


Quieres  inyectar  más  crea- 
tividad en  tu  programa- 
ción, pero  el  juego  de 
caracteres  del  VIC-20  no 
satisface  tus  necesidades. 
La  única  solución  es  gene- 
rar tus  propios  caracteres. 
Aquí  presentamos  unas  indi- 
caciones útiles  que  te  ayu- 
darán a diseñar  rápida  y 
fácilmente  tus  propios  carac- 
teres para  juegos  y gráficos. 


La  mayoría  de  los  programadores  que 
tengan  interés  en  juegos  y gráficos,  llega  a 
un  punto  en  que  el  juego  de  caracteres 
estandard  del  VIC-20  no  satisface  la  nece- 
sidad de  creatividad.  Aunque  existe  una 
buena  selección  de  caracteres  interesantes, 
cuando  un  juego  requiere  naves  espaciales 
u hombrecitos,  la  mejor  solución  es  dise- 
ñar un  juego  personalizado  de  caracteres 
programables. 

Traslado  de  Memoria 


VIC-20 


Las  técnicas  básicas  son  bastante  senci- 
llas. pero  si  requieren  un  poco  de 
información  de  fondo  para  que  resulten 
fácilmente  comprensibles.  Para  empezar, 
la  memoria  de  caracteres  del  VIC-20  se 
almacena  en  la  ROM.  la  cual  no  se  puede 
cambiar.  Los  caracteres  sólo  pueden  ser 


cambiados  cuando  se  almacenan  en  la 
RAM  del  usuario.  Por  lo  tanto,  para 
poder  crear  cualquier  carácter  nuevo,  la 
memoria  de  caracteres  del  VIC  primero 
tiene  que  ser  trasladada  a las  posiciones 
limitadas  en  la  RAM  que  puede  ser  acce- 
dida por  el  chip  de  vídeo  del  VIC-20.  | 

Las  posiciones  estandard  en  el  VIC  no 
ampliado  o el  VIC  de  3K  con  ampliación, 
se  encuentran  al  principio  de  la  memoria 
del  usuario  en  la  posición  7168.  6144  o 
5120.  La  posición  7168  almacenará  64 
caracteres;  la  posición  5120  almacenará 
todos  los  255  caracteres.  Se  traslada  la 
posición  del  carácter  mediante  la  opera- 
ción Poke  en  la  posición  36869  con  el 
código  apropiado.  (La  Tabla  I). 

Al  elegir  una  posición  del  carácter,  es 
importante  acordarse  de  que  hay  que  res- 
tar la  memoria  utilizada  por  el  juego  de 
caracteres  de  la  RAM  disponible  para 
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programación.  Mientras  que  la  posición 
7168  utiliza  solamente  512  bytes,  la  posi- 
ción 5120,  que  permite  255  caracteres,  uti- 
liza 2560  bytes,  dejando  solamente  1024 
bytes  para  el  resto  del  programa.  Por  este 
motivo,  es  importante  utilizar  sólo  los 
caracteres  absolutamente  imprescindibles. 

Otra  consideración  importante  es  que  el 
VIC  almacena  algunos  tipos  de  variables 
al  principio  de  la  memoria  del  usuario. 
Para  poder  proteger  el  juego  de  caracteres 
de  estas  variables,  hace  falta  hacer  un 
"Poke”  en  las  posiciones  52  y 56  con  el 
código  apropiado.  La  Tabla  I presenta  los 
códigos  para  trasladar  y proteger  un  juego 
de  caracteres. 

Si  se  introduce  POKL56,28:POKL52.28: 
POK  1:56869.255,  la  pantalla  se  llenará  de 
basura.  Esto  es  asi  porque  aunque  la  posi- 
ción de  caracteres  se  haya  trasladado  y 
protegido,  todavía  no  contiene  caracteres. 
Para  que  la  pantalla  vuelva  a su  estado 
normal,  se  teclea  POK £36869,240. 

La  siguiente  rutina  hará  un  "Pcck''  en 
la  posición  estandard  de  caracteres  y tras- 
ladará los  64  caracteres  a la  nueva  posi- 
ción 7168. 

10  POK £56.28: POK E52,28:CLR 
20  FOR  l'=7 168  TO  7679:POKE  T.PEEK 
( T+(  32768-7 1 68 )):  N EXT 
30  POKE36869.255 

Cuando  esto  se  introduce,  el  único 
cambio  evidente  es  que  el  cursor  desapa- 
rece. Esto  es  así  porque  el  número  del 
"Poke"  en  pantalla  del  espacio  invertido 
que  utiliza  el  cursor  es  de  160,  y el  nuevo 
juego  de  caracteres  contiene  sólo  64 
caracteres. 

Esta  fórmula  se  puede  modificar  para 
trasladar  más  caracteres,  cambiando  los 
códigos  en  las  lineas  10  y 30  para  que  sean 
los  códigos  apropiados  para  la  nueva 
posición  y sustituir  la  nueva  posición  por 
7168  en  la  línea  20. 

También  es  posible  trasladar  caracteres 
individuales  al  nuevo  juego  de  caracteres. 
Se  puede  utilizar  la  siguiente  fórmula, 
cuando  X es  igual  al  código  Poke  de  pan- 
talla del  carácter  de  la  ROM.  y Y es  igual 
al  código  Poke  de  pantalla  del  carácter 
que  será  sustituido. 

POR  T=0  TO  7:POKE7l68+Y'8+T,PEEK 
(32768+X‘18+T):NEXT 

Por  ejemplo,  si  se  teclea  lo  que  se  pre- 
senta a continuación,  y se  pulsa  la  tecla  X, 
se  imprimirá  un  signo  de  ? 

FOR  T=0  TO  7:POKE  7168+24J8+T, 
PEEK(  32768+63*8+T):N  EXT 
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Diseños  Originales 

Ahora  podemos  empezar  a diseñar 
caracteres  personalizados.  Cada  carác- 
ter se  compone  de  64  pequeños  puntos  en 


la  pantalla.  Se  necesitan  ocho  bytes  de 
memoria  para  almacenar  un  carácter, 
cada  byte  compuesto  de  ocho  interrupto- 
res de  encendido-apagado  llamados  bits. 
Si  el  bit  está  encendido,  también  lo  está  el 
punto  en  la  pantalla. 

A los  ocho  bits  que  componen  el  byte. 
se  les  asigna  los  siguientes  valores,  que 
constituyen  las  potencias  de  2 hasta  la  sép- 
tima: 128,64.32,  16.8.4.2,  1.  Si  se  utili- 
zan (bit  encendido)  o no  se  utilizan  (bit 
apagado)  estos  números  en  todas  las 
combinaciones  posibles  se  obtienen  los 
valores  de  los  bytes  de  0-255.  1.a  Figura  I 
presenta  la  estructura  según  los  bits  de  un 
carácter  que  representa  un  transbordador 
del  espacio. 

Los  números  a la  derecha  de  la  Figura  I 
representan  los  valores  obtenidos  mediante 
la  suma  de  los  valores  de  los  bits  indivi- 
duales de  cada  byte.  Para  sustituir  al  a por 


1 0 P0KE52 , 58 : P0KE56 , 28  = CLP  D I MN ( 7 > 

28  FORT =7 1 68T07679 ■ PÜKET, PEEKCT+2560 
0)  NEXT 

30  P0KE36869z  255 
40  RERDR : IFR»-1THEN200 
50  FORT=0TÜ7  REflDB : P0KE7168+H*8+T , B 
NEXT 

60  GOTO40 
200  DflTR-1 
7990  STOP 

8000  PR I NTCHRt < 1 47 >CHR*  < 1 8 ) " C 2SPC 2 76 
543210C2SPC]" 

80 1 0 FORT=0TO7 : PRINTCHR$( 18) TSPC < 7 > T 
NEXT : PR I N TCHR$( 1 8 ) " C 2SPC ] 765432 1 0 C 2SPC ] 

H 

8020  PQKE36869 , 240 ■ FORT=38400TO39632 

: P0KET ; 6 NEXT : L=*7704  TH=32 

8030  CH= 1 60  LL=7704  PR I NT " F 1 =P I NTR C 2SPC ] 

F3=B0RRR" : PR I NT " ESPRC 1 0=MRRCR  C SPC ] F5 

=ENTRR" 

8040  P0KELL* 160  FORTUITO 10 : NEXT : POKE 

LLz32:FORTslTO10;NEXT 

8050  I FPEEK< 1 97 ) =39THENCH= 1 60 

8060  IFPEEK< 197)=47THENCH=32 

8070  I FPEEK  < 1 97) = 1 7THENV=V- 1 I FY<0TH 

ENY=0 

8080  I FPEEK ( 1 97 ) = 1 8THENY= Y+ 1 : IFV>7TH 
ENY=7 

8090  I FPEEK ( 197)=9THENX=X-22 ; IFX<0TH 
ENX=0 

8100  I FPEEK  <1 97 ) =26THENX=X+22  = I FX> 1 5 
4THENX=154 

8110  I FPEEK <1 97 )*32THENTH=CH 

8120  I FPEEK ( 1 97 )=55THEN8 140 

8130  POKELLz TH : LL=L+X+Y : TH=PEEK<LL) : 

GOTO8040 

8140  PRINTCHR$( 19)CHR$C 17) ¡ =FORX=0TO 
7 : FORV=0TO7 : F0RT=63 1 TO640 • P0KET , 0 • NE 


!► 


este  carácter,  se  hace  un  "Poke”  con  los 
valores  mencionados  antes  en  las  primeras 
ocho  posiciones  de  la  memoria  de  caracte- 
res de  la  RAM. 

El  método  estandard  para  realizar  esto 
utiliza  las  sentencias  de  datos  de  la 
siguiente  forma: 

10  READ  A:1F  A=-l  THEN  100 
20  FOR  T=0  TO  7:  READ  1$:  POKE 
( A'  B )+7 1 68+T.B:  N EXT 
30  DATA  0,0,0, 128. 192,254,255,0,0.-1 
100  END 

El  primer  número  de  datos  es  el  código 
Poke  de  pantalla  del  carácter  que  se  susti- 
tuye. El  número  -I  le  indica  al  programa 
que  el  último  carácter  ha  sido  introdu- 
cido, Si  se  utiliza  más  de  un  carácter,  el  -I 
se  utiliza  solamente  después  de  la  linea  de 
dalos  del  último  carácter. 


Un  método  aún  más  sencillo  de  produ- 
cir caracteres  personalizados  es  mediante 
el  uso  del  generador  de  caracteres  pro- 
gramables.  Cuando  se  ejecuta  el  pro- 
grama, se  trasladan  64  caracteres  en  la 
RAM  del  usuario,  se  realiza  un  "Poke" 
con  cualquier  carácter  nuevo  que  haya 
sido  diseñado  y se  hace  una  pausa  para 
que  el  usuario  compruebe  los  caracteres 
nuevos.  Si  se  introduce  CONT.  el  mismo 
generador  de  caracteres  aparece  en  pantalla. 

El  VIC  dibujará  una  caja  con  los  núme- 
ros de  los  bytes  en  los  laterales  y los 
números  de  los  bits  tanto  en  la  parte  supe- 
rior como  en  la  inferior.  Los  bits  se  enu- 
meran de  siete  a cero  para  demostrar  la 
potencia  de  dos  que  representa  el  valor  de 
dicho  bit.  Por  ejemplo,  27=  1 28.  el  valor 
del  bit  más  alto. 

El  carácter  nuevo  se  dibuja  moviendo  el 
cursor  mediante  la  tecla  W=arriba, 


XT : NEXT : NEXT 

8150  FÜRX=0TO7  : FORY=0TO7  : IFF’EEK<7704 
+X#22+Y ) = 1 60THENN < X ) =N < X ) +2 1< 7-V ) 

8 1 60  NEXTV : PR I NTTfiB  < 1 4 > N < X > : NEXTX  ¡ PR 
INT : PRINT  PRINT 

8 1 70  PR 1 NT " ENTRA C SPC ] C0D 1 00 C SPC IDE" 
8180  INPUT"PñNTñLLñCSPC]#" i A : IFAC0OR 
A>64THEN8170 

8 1 90  PR I NTCHR* <147) CHR* < 1 7 >CHR*  < 1 7 > 
8200  Q=Q+1 :PRINT60+Q"DATA"A; =FORT=0T 
07 : PR I NT " , "RI GHT*  < STR* < N < T > ) , LEN  < STR 
*<N<T>>)-1); 

8210  NEXT ■ PRINT : PRINT : PRINT"Q="Q" : " ; 
8220  PRINT"OOTO20" = RESTORE 
8230  PR I NT " GOTO8000=CONT I NUAR  C 4SPC 3 0 
OTO9000=ENDCHOf1] " 

8240  POKE 1 98 , 0 : P0KE63 1 , 13  POKE632 , 1 7 
P0KE633 ,13' POKE 1 98 , 3 = END 
9000  PR I NTCHR* <147) CHR* < 1 7 > CHR* < 17)' 
FORT=7990TO8070STEP 1 6 PR I NTT  NEXT = PR 
INT"GOTO9020" 

90 1 0 FORT =63 1 TO640 : POKET ,13: NEXT  POK 

E 1 98 , 1 0 : PR I NTCHR* < 19)' END 

9020  PR I NTCHR* < 147) CHR*  < 1 7 ) CHR*  < 17) 

FORT=8080TO8 1 60STEP 1 0 PR I NTT  NEXT  = PR 

INT"GOTO9040" 

9030  F0RT=63 1 TO640 : POKET , 13  = NEXT  POK 

E 1 98 ,10  PR I NTCHR* <19): END 

9040  PR I NTCHR* < 147) CHR*  < 1 7 ) CHR* ( 17) 

F0RT=8 1 70TO8240STEP 1 0 PR I NTT  NEXT  PR 

INT"GOTO9060" 

9050  F0RT=63 1 TO640  POKET , 1 3 : NEXT  POK 
E 1 98 , 1 0 : PR  I NTCHR*  < 1 9 ) '•  END 
9060  PR I NTCHR*  <147) CHR*  < 1 7 ) CHR* < 1 7 ) 
FORT =9000TO9070STEF'  1 0 PR  I NTT  NEXT 
9070  FORT =63 1 T 0640 • POKET • 13  NEXT  POK 
E 1 98 , 1 0 PR I NTCHR*  < 1 9 ) : END 


0 0 0 0 
0 0 0 0 
10  0 0 
110  0 
lili 
lili 
0 0 0 0 
0 0 0 0 


0 0 0 

0 o o 
0 0 0 
0 0 0 

1 I 1 
1 I 1 

o o o 
0 0 0 


o = o 
o = o 
0 = 128 
0 = 192 

0 = 254 

1 = 255 
0 = 0 
0 = 0 


t'ig.  I La  estructura  en  hits  tle  un  carácter 
parecido  a un  transbordador  espacial. 


X abajo,  A=izquierda,  D=derccha.  Me- 
diante la  pulsación  de  la  barra  de  espa- 
ciado, se  coloca  una  caja  coloreada  debajo 
de  la  posición  del  cursor.  Si  se  comete  un 
error,  se  pulsa  F3.  Esto  permite  que  se 
borren  las  cajas  coloreadas  mediante  la 
pulsación  de  la  barra  de  espaciado.  Si  se 
pulsa  Fl  el  programa  vuelve  a la  modali- 
dad de  dibujo. 

Cuando  se  termina  de  dibujar  el  carác- 
ter. hay  que  colocar  el  cursor  debajo  de  la 
caja  y pulsar  F5.  A continuación,  el  pro- 
grama imprimirá  los  valores  Poke  para  el 
carácter  nuevo  y solicitará  que  se  susti- 
tuya el  código  Poke  de  pantalla  de  dicho 
carácter.  Ver  la  guia  del  usuario  en  la 
página  268  del  manual.  Recuerda  también 
que  el  juego  de  caracteres  sólo  utiliza 
caracteres  de  0-64. 

Cuando  se  introduce  este  número,  el 
programa  escribe  automáticamente  una 
linea  "DATA"  para  el  carácter  nuevo  y se 
suma  a si  misma  esta  linea.  A continua- 
ción. vuelve  al  principio  para  introducir  el 
carácter  en  el  juego  de  caracteres  y hace 
una  pausa  para  que  el  carácter  se  pueda 
comprobar  mediante  la  pulsación  de  la 
tecla  del  carácter  que  fue  sustituido. 

En  este  momento,  nunca  se  debe  de 
usar  la  tecla  "Rclurn",  a menos  que  sea 
para  continuar  el  programa  introduciendo 
CONT  o GOTO8000.  Si  un  carácter  no  te 
gusta,  puedes  hacer  uno  nuevo  y volver  a 
introducir  el  mismo  código  de  pantalla 
que  antes.  Dado  que  tendrá  un  número  de 
linea  más  alto,  sustituirá  el  primer 
carácter. 

Cuando  quedan  terminados  lodos  los 
caracteres  deseados,  se  introduce 
GOTO9000.  Esto  borra  automáticamente 
la  parte  del  generador  del  programa, 
dejando  solamente  un  programa  para  car- 
gar el  nuevo  juego  de  caracteres. 

Este  programa  puede  ser  salvado  en 
cinta  y cargado  como  cualquier  otro.  Se 
pueden  añadir  juegos  antes  de  la  linea  200. 
o se  pueden  cargar  por  separado  el  juego 
de  caracteres  y un  juego  que  lo  utilice.  Lo 
único  que  hay  que  hacer  es  dibujar  los 
caracteres;  el  generador  reali/a  el  resto  del 
trabajo. 
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Anímate  con  los  “Sprites” 


La  programación  de  los 
gráficos  “sprites"  no 
tiene  que  ser  tan  laboriosa. 
Este  programa  para  el  C-64 
simplifica  el  proceso. 


La  capacidad  para  crear  y manipular  los 
gráficos  "sprites"  es  una  característica 
poderosa  del  Commodore  64.  Sin  embar- 
go. es  un  proceso  laborioso.  Probable- 
mente el  aspecto  más  pesado  de  los  gráfi- 
cos “sprites"  es  la  traducción  de  los  datos 
binarios  del  "sprite"  dibujado  en  números 
decimales  que  pueden  ser  introducidos  en 
la  memoria  mediante  un  “Poke". 

El  programa  descrito  aqui  permite  que 
se  dibuje  en  pantalla  una  versión  ampliada 


C-64 


del  "sprite".  El  ordenador  leerá  el  dia- 
grama. calculará  los  números  que  serán 
introducidos  mediante  un  "Poke”  en  la 
memoria  y representará  el  “sprite". 

Cómo  dibujar  un  “Sprite” 

La  guia  del  usuario  del  C-64  propor- 
ciona una  descripción  detallada  del 
método  para  crear  un  “sprite".  En  esen- 
cia. se  rellenan  los  espacios  de  un  tablero. 
Un  I entra  en  un  espacio  que  será  relle- 
nado, y un  0 entra  en  un  espacio  que  será 
dejado  en  blanco.  Hay  21  filas  y 24 
columnas.  Las  24  columnas  se  dividen  en 
tres  palabras  binarias  de  8 bits. 


Por  lo  tanto,  las  21  filas,  compuestas 
por  tres  palabras  de  8 bits  cada  una.  com- 
ponen las  63  palabras  que  describen  el 
"sprite".  Cuando  se  convierte  en  valores 
decimales  y se  introduce  en  la  memoria 
mediante  un  “Poke".  el  "sprite"  puede  ser 
representado  en  pantalla. 

Una  vez  introducido  el  programa,  se 
teclea  RUN  y se  dibujan  los  bordes  del 
"sprite"  en  pantalla.  (No  habrá  líneas  en 
el  tablero).  El  programa  hará  una  pausa 
aqui  para  que  el  “sprite"  pueda  ser  dibu- 
jado dentro  de  los  bordes.  Se  utilizan  las 
teclas  del  cursor  para  que  este  se  desplace 
a la  posición  que  el  usuario  desea  rellenar. 
En  esta  posición  se  coloca  un  I No  es 
necesario  colocar  un  0 en  los  espacios  que 
quedarán  en  blanco,  ya  que  el  ordenador 
sólo  busca  los  Is. 

Cuando  el  dibujo  quede  terminado,  se 
teclea  GOTO200:  con  el  cursor  en  la 
mitad  del  margen  izquierdo  de  la  pantalla. 
(Al  teclear  estos  comandos  del  programa, 
es  importante  incluir  los  dos  puntos.  La 
omisión  de  uno  de  ellos  resultaría  en  un 
error  de  sintaxis).  El  dibujo  será  leído  y 
convertido  en  decimal,  y los  valores  serán 
colocados  en  unas  matrices.  (Durante 
unos  20  segundos  parece  que  no  está  ocu- 
rriendo nada).  A continuación,  se  repre- 
sentará el  "sprite"  tal  y como  aparecerá 
en  un  programa. 

F.I  programa  vuelve  a hacer  una  pausa, 
y si  el  usuario  queda  satisfecho  con  el 
“sprite".  puede  conseguir  una  lista  de  los 
63  valores  decimales  que  pueden  ser 
introducidos  en  la  memoria  mediante  un 
“Poke"  para  que  el  “sprite"  pueda  ser 
representado  en  un  programa  del  mismo 
usuario.  Al  teclear  GOTO500:  la  lista 
aparecerá  en  pantalla,  y GOTO700: 
enviará  la  lista  a la  impresora.  Las  dos 
listas  se  leen  de  forma  horizontal. 

Si  el  usuario  no  queda  satisfecho  con  el 
"sprite".  y desea  modificarlo,  también  lo 
puede  hacer.  Se  teclea  GOTO200:  para 
que  los  nuevos  valores  entren  en  los 
“arrays”  y se  represente  la  versión  nueva. 

Al  teclear  GOTO600:  el  ordenador  vol- 
verá a dibujar  el  “sprite".  Para  hacer  esto, 
se  usarán  los  datos  contenidos  en  los 
“arrays".  Haga  lo  que  haga  el  usuario  con 
el  dibujo,  los  datos  en  el  “array"  no  cam- 
biarán hasta  que  se  teclee  GOTO200:.  Por 
supuesto,  todo  será  borrado  si  se  teclea 
RUN.  La  Tabla  I representa  un  resumen 
de  la  función  de  los  comandos  GOTO. 


20/Commodore  World  Mayo  1984 


Tabla  I. 

Resumen  de  los  comandos  GOTO  en  programa  para  dibujar  un  "sprite". 

Comando  Acción 

GOTO200:  Leer  el  dibujo  "sprite”.  convertirlo  en  valores  decimales  y almacenar 
éstos  en  un  “arrav".  Representar  el  "sprite"  en  pantalla. 

GOTO500:  Listar  en  pantalla  los  63  valores  decimales.  Leer  las  filas  en  sentido 
horizontal. 

GOTO600:  Volver  a dibujar  el  "sprite"  actual. 

GOTO700:  Imprimir  lista  de  los  63  valores  decimales.  Leer  las  lilas  en  sentido 
horizontal. 


Cómo  Funciona  el  Programa 

Este  programa  funciona  dependiendo  de 
la  posición  del  dibujo  en  la  pantalla.  Si 
la  pantalla  se  desplazara  incluso  una  fila 
hacia  arriba,  todos  los  valores  para  el 
“sprite"  serían  incorrectos.  Es  importante 
que  el  cursor  no  toque  la  parte  inferior  de 
la  pantalla;  por  este  motivo  los  comandos 
GOTO  deben  de  introducirse  a mitad  de 
pantalla.  F.l  motivo  de  que  los  comandos 
GOTO  van  seguidos  de  dos  puntos  es 
para  que  el  ordenador  no  intente  leer  la 
línea  entera,  la  cual  incluye  parte  del 
dibujo  "sprite". 

La  linea  45  dimensiona  los  dos  "arrays" 
utilizados  y fija  la  V igual  a la  dirección 
del  chip  controlador  de  video.  Las  lineas 
100  a 700  llaman  las  subrutinas  que  reali- 
zan el  trabajo  del  programa. 

Las  subrutinas  1000  y 1100  hacen  los 
bordes  para  el  dibujo  “sprite”.  La  subru- 
tina 1 200  lee  la  zona  dentro  de  los  bordes. 
Si  se  encuentra  un  I.  será  colocado  en  el 
elemento  correspondiente  del  "array” 
AR.  De  no  ser  asi.  coloca  un  0 en  la  posi- 
ción del  “array".  Existen  504  (3X8X21) 
elementos  en  el  "array"  AR. 

La  subrutina  1300  recoge  los  datos  bina- 
rios del  “array"  AR.  ocho  elementos  por 
vez.  y los  trata  como  si  fuese  un  número 
binario  de  8 bits.  Este  se  convierte  en  su 


equivalente  decimal  y se  almacena  como 
una  de  las  63  palabras  en  el  "array"  AL 
La  subrutina  1400  representa  el  "sprite". 
Los  63  números  decimales  del  "array"  A I 
se  introducen  en  la  memoria  mediante  un 
"Poke".  comenzando  en  la  posición  832. 
(Las  posiciones  828  a 1019  componen  la 
memoria  intermedia  de  E/S  de  la  cinta.) 
832  es  de  64  X 13.  asi  que  con  bloques  de 
64.  estos  datos  se  almacenan  en  el  bloque 
número  13. 

En  la  línea  1450.  la  posición  2042  es  la 
que  apunta  a los  datos  para  el  "sprite”  2. 
El  13  se  introduce  en  esta  posición  dado 


que  los  datos  se  introdujeron  en  el  bloque  13. 

La  posición  V+21  activa  los  “spritcs". 
En  este  caso,  activa  el  "sprite"  2 dado  que 
allí  se  introdujo  un  4 mediante  un  "Poke". 
(Ver  la  Guia  de  Referencia  - página  123). 
La  linca  1440  especifica  la  posición  hori- 
zontal y vertical  del  "sprite". 

La  subrutina  1500  lista  los  63  números 
decimales  que  pueden  ser  utilizados  para 
definir  un  "sprite"  en  un  programa. 

La  subrutina  1600  saca  los  datos  bina- 
rios del  “array"  AR  y vuelve  a dibujar  la 
imagen  en  pantalla  para  que  pueda  ser 
revisada  y modificada  si  asi  se  desea. 


20  REM  CON  RUN  DIBUJA  LOS  BORDES  0R 
IGINALES 

25  REM  CON  GOTO  200 
SPRITE 

30  REM  CON  GOTO  500 
ANTALLA 

35  REM  CON  GOTO  600 


GUARDA  DIBUJO  V 
LISTA  DATOS  EN  P 
VOLVER  A DIBUJAR 


40  REM  CON  GOTO  700  LISTA  DATOS  EN  I 
MPRES0RA 

45  D I MAR  < 504 ) . A 1 ( 63 ) : V=53248 

100  G0SUB 1 000 

150  END 

200  G0SUB 1 200 

300  GOSUB1300 

400  GOSUE1400 

450  END 

500  G0SUB 1 500 

510  I FP 1 * 1 THENPR I NT# 1 : P 1 *0 ; CL0SE 1 RE 

M P1=CER0 

550  END 

600  GOSUB1600 

650  END 

700  Pl=l 

710  0PEN1,4  CMD1 


720  GOTÜ500 
800  REM 

1000  REM  PREFIJAR  INFORMACION  PARA  B 
ÜRDES 

1010  PR I NT " [ WHT ] C CLR I " 

1020  S= 1 034 : S 1 = 1 057 ; S2= 1 S3-100=GOSU 
B 1 1 00 

Continúa  en  página  siguiente 


Tele  Sant  Just 

Mayor,  2.  Tel.  (93)  371  70  43 
SAN  JUST  DESVERN  (Barcelona) 


INTERFACE  para  recibir  y transmitir 
CW  y RTTY  en  el  VIC-20  y 
COMMODORE  64 


INTERFACE  para  poder  conectar  cualquier 
cassette  a los  ordenadores 
COMMODORE  64 


BASE  DE  DATOS  en  cassette 
ARCHIVO  DE  OSL. 

"NECESITAMOS  DISTRIBUIDORES" 
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ANIMATE  CON  LOS  SPRITES 


Viene  de  página  anterior 

1 «30  s= 1 073 : S 1 = 1 873  S2«40 : 33= 1 03 : GOS 
UBI  100 

1040  S= 1 9 1 4 : S 1 = 1 937 : S2= 1 33*99 : GOSUB 
1100 

1050  3= 1 098 : S 1 = 1 937 : 32=40  S3= 1 0 1 : GOS 
UBI 100 

1 060  S= 1 034 : P0KES+7 ,122  POKES+8 , 76 
1065  POKES+ 15,122  POKES+ 16,76 
1070  3=1914: P0KES+7 , 80 : POKES+8 , 79 
1 075  POKES+ 15,80  POKES+ 16,79 
1 080  3= 1 472 : POKES , 67 : POKES+27 , 67 
1090  RETURN 

1100  REM  DIBUJA  BORDES 

1110  FOR I =ST OS 1 STEPS2 

1120  : POKE I,S3P0KEI +54272, 1 

1130  NEXTI 

1140  RETURN 

1150  REM 

1200  REM  PONE  LOS  DATOS  DE  LOS  BIT  E 

N LA  MATRIZ  ARO 

1210  11=0  REM  II  CERO 

1220  FORS=1074TO1874STEP40 

1230  : F0RI=ST0S+23 

1240  i 11=11+1 

1250  : AR< I 1 )=0 

1260  : IFPEEK(I) =49THENAR < 1 1 ) * 1 


1270  NEXTI 
1280  NEXTS 
1290  RETURN 
1295  REM 

1300  REM  DECOD I F I CAR  LOS  DATOS  V PON 

ERLOS  EN  LA  MATRIZ  Al  O 

1310  V=1 

1320  F0RI=1T063 

1330  : DEC=0 : BIN=128 

1340  : F0PIX=VT0V+7 

1 350  DEC=DEC+B I N#AR < I X ) 

1360  BIN=BIN/2 

1370  NEXTIX 

1380  : V=V+8 : Al < I >=DEC 

1390  NEXTI 

1395  RETURN 

1397  REM 

1400  REM  DIBUJA  EL  3PRITE 

1410  F0RI=1T063 

1420  P0KE831+I , Al< I ) 

1430  NEXTI 

1 440  POKEV+4 . 70  POKEV+5 , 205 
1 450  POKE2042 ,13  POKEV+2 1 , 4 
1460  RETURN 
1470  REM 

1500  REM  LISTA  LOS  DATOS 

1510  PR I NT " C CLR  3 " = POKEV+2 1 , 0 

1520  FOR I * 1 T063STEP3 

1530  = PRINTfll < I ) , Al í I + 1 ) , Al < I +2) 

1540  NEXTI 

1550  RETURN 

1560  REM 

1600  REM  VOLVER  A DIBUJAR 
1610  GOSUB 1000 
1620  11=0 

1630  FORS-1074TQ1874STEP40 
1640  F0RI=ST0S+23 
1650  = 11=11+1 

1660  IFAR(  1 1 ) = 1THENP0KEI , 49  : F'O 

KE 1+54272,  1 

1670  NEXTI 

1680  NEXTS 

1690  RETURN 


nicroSistexnas 


Ejemplar  atrasado 
250  pesetas 
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Los  “Arrays”  a raya 


Si  tienes  ganas  de  saber  lo 
que  son  los  “arrays”  y lo 
que  pueden  hacer  en  tus 
programas,  este  artículo  in- 
tenta aclararte  estos  puntos 
oscuros. 


La  pregunta  que  más  se  hace  sobre  los 
“arrays”,  después  de  “¿Qué  son?”  es 
“¿Para  qué  sirven?"  Al  principio  podrían 
parecerse  a otro  tipo  de  variables:  pero 
sigue  leyendo,  y descubre  algunos  de  los 
usos  de  esta  potente  técnica  de  programa- 
ción. 

¿Qué  es  un  "array”? 

En  los  “arrays"  se  puede  almacenar 
información.  Cuando  dicha  información 
consiste  en  números,  se  utiza  un  "array" 
numérico;  un  "string"  de  “arrays"  se  uti- 
liza para  almacenar  los  “strings”  de 
caracteres. 

Puedes  considerar  un  “array”  como 
una  fila  de  cajas  vacias,  cada  una  capaz  de 
contener  cualquier  número  o "string"  que 
tú  le  quieres  introducir.  Cada  caja  tiene  un 
nombre,  compuesto  de  la  variable  que  da 
nombre  a la  fila  entera,  más  un  número 
que  indica  la  posición  de  la  caja  en  la  fila. 
Si  tienes  una  fila  de  cinco  cajas,  podrían 
llamarse: 

A(0),  A(  I),  A(2).  A(3).  A(4). 


El  número  entre  paréntesis  se  llama  un 
subíndice;  A(  1)  se  pronuncia  "A  sub-uno". 

Dimensionar  un  "array"  significa  que 
se  le  indica  al  ordenador  que  guarde  un 
bloque  de  memoria  para  almacenar 
información.  Dicha  información  puede 
ser  proporcionada  dentro  del  mismo  pro- 
grama, o puede  ser  introducida  mientras 
se  está  ejecutando  el  programa. 

Para  dimensionar  un  “array".  se  utiliza 
la  sentencia  DIM  A (20).  Asi  se  le  indica  al 
ordenador  que  guarde  21  espacios  de 
memoria  (uno  por  cada  elemento  del 
"array").  el  primero  siendo  A(0),  y el 
último  A(20). 

El  ordenador  dimensiona  automática- 
mente un  "array"  de  once  elementos,  sin 
emplear  la  sentencia  DIM.  si  se  utiliza  una 
variable  con  subíndice  dentro  de  un  pro- 
grama. Por  ejemplo,  si  se  utiliza  30 
A(4 )=  1 7.  el  ordenador  dimensionará  un 
“array"  llamado  A.  con  los  once  elemen- 
tos de  A(0)  a A(I0).  Sin  embargo,  se 
dimensiona  automáticamente  sólo  si  el 
subíndice  es  de  diez  o menos.  Para  poder 
utilizar  unos  subíndices  más  altos,  es 
imprescindible  utilizar  primero  la  senten- 
cia Dim. 

Es  un  buen  ejercicio  de  programación 
siempre  dimensionar  un  "array".  sea  cual 
sea  su  tamaño;  resultará  mucho  más  fácil 
seguir  el  listado.  También  constituye  una 
forma  de  ahorrar  memoria:  aunque  añade 
una  linca  al  programa.  DIM  A(4)  dimen- 
siona un  “array"  de  solamente  cinco  ele- 
mentos, en  vez  de  los  once  que  se  dimen- 
sionan  automáticamente. 

Cualquier  variable  numérica  como 
A9f(4).  BP(8),  o XL(IO)  puede  ser  utili- 
zada como  nombre  para  un  “array" 
numérico. 

A veces  resulta  confuso,  y muchas  veces 
poco  conveniente,  que  el  Commodorc 
identifique  el  primer  elemento  de  un 
“array"  como  "0".  Hay  que  tener  en 
cuenta  que  "DIM  A (5)"  proporciona  seis 
elementos,  A(0)  a A(5),  y no  cinco  elemen- 
tos, A(  I)  a A(5). 

Llenando  un  “Array” 

Para  llenar  una  de  las  "cajas"  de  un 
"array"  cuando  se  escribe  un  pro- 
grama, se  le  asigna  un  valor,  igual  que  se 
asigna  un  valor  a cualquier  otra  variable: 
A(2)=I7:A(4)=8 
o 

FOR  X=l  TO  3:  READ  A(X):  NEXT 
DATA  5,17.83 

La  variable  con  subíndice  que  repre- 
senta un  lugar  en  un  "array"  puede  ser  uti- 
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LOS  “ARRAYS”  A RAYA 


Lisiado  I.  Programa  utilizado  para  introducir  valores  en  un  "array". 

10  DIMA<5) 

15  FORN-0TO5 

20  F'R I NT " QUE  C SPC 3 QU I ERES [ SPC 3 ENE SPC 3 
LA E SPC 3 CAJA "N 
25  I NPUTñ < N ) : NEXTN 
30  FQRN=0TG5 

35  PR I NT " Lñ  C SPC 3 C A JA " N " CONT I ENE " A < N > 
40  NEXTN 


Listado  2 Una  versión  sencilla  del  luego  de  adivinar  números. 

10  N= I NT  < RNB ( 0 > *50  > + 1 

20  FORT=1TO20 

30  I NPUT " QUE C SPC ] NUMERO " ; G 

40  IFG=NTHENPRINT"TUCSPC]GflNñS ! " :END 

50  NEXTT 

60  PR I NT " TU C SPC ] P I ERDES. C SPC 3 EL C SPC 3 
NUMERO C SPC 3 ERA" N : END 


Listado  3.  El  juego  de  adivinanzas  con  unos  detalles  adicionales. 

10  DIMA(19) 

20  N-INT<RND<0>#50>+1 
30  FORT«0TO19 

40  I NPUT " QUE  C SPC  3 NUMERO " ; G 
50  FORCK»0TOT 

60  I FG“fl < CK ) THENPR I NT " Vfl C SPC  3 LO  E SPC  3 
HRSE SPC 3 INTENTADO" : GOTO40 
70  I FGOfl<  CK  ) THENNEXTCK 
80  LETR<T)«G 

90  I FG*NTHENPR I NT " TU  E SPC  3 GANAS " : GOTO 
120 

100  NEXTT 

110  PR I NT " TU E SPC 3 P I ERDES . ESPC3ELESPC3 
NUMERO E SPC 3 ERA "N 

120  PR I NT " TUS  E SPC  3 1 NTENTOS  E SPC  3 FUERO 
N : : PRINT 

130  FORX=0TO19 : PRINTA(X)z : NEXTX : END 


Listado  4.  Programa  para  listar  las  estadísticas  de  castigos  en  un  partido  de  hockey. 

10  DIMAC5; 3) 

20  FORPL= 1 T05 : FORPD= 1 T03 
30  READA<PL> PD) 

40  NEXTPD : NEXTPL 

50  DATA0, 2, 2,  5, 2, %,7 , 0,2, 0,0, 2,  5, 7, 1 
2 

100  PRINT" ECLR3" 

110  PRINT , "PRI MERO " , " SEGUNDO " , " TERCE 
RO" 

1 20  FORPL= 1 T05 : PR I NT " E CRSRD 3 NO . " PL , 

1 30  FÜRPD= 1 T03 : PR I NTA < PL , PD ) , : NEXTPD 
: NEXTPL 
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lizada  como  cualquier  oirá  variable.  Por 
ejemplo.  A(l>=  A(l)+1.  PRINT  A(3)  y 
PRINT  A (4)*  16  son  todos  comandos 
válidos. 

Para  llenar  una  caja  durante  la  ejecu- 
ción de  un  programa,  lo  único  que  hay 
que  hacer  es  utilizar  el  nombre  del  ele- 
mento dentro  del  comando  Input.  como 
se  demuestra  a continuación:  INPUT  A(4) 
o INPUT  B(6). 

Prueba  este  programa  corto: 

10  DIM  A( 2) 

20  A(0)=  15:A(  I )=27:A(2)=32 

30  FOR  N=0  TO  2:  PRINT  A(N):  NEXT. 

La  linea  10  dimensiona  un  “array"  en 
tres  elementos.  La  línea  20  llena  dichos 
elementos.  La  linea  30  inicializa  un  bucle 
de  modo  que  la  primera  vez  A(N)  es  A(0). 
la  segunda  vez  es  A(l).  v finalmente  es 
A(2). 

Este  programa  demuestra  por  que  los 
"arravs"  se  utilizan  con  tanta  frecuencia: 
para  ¡a  fácil  recuperación  de  la  informa- 
ción. Si  se  hubiera  comenzado  con  A=15: 
B=27:  C=32.  no  resultaría  fácil  escribir  un 
bucle  que  imprimiría  los  valores  de  dichas 
variables. 

A propósito,  en  cuanto  se  dimensiona 
un  “array”  numérico,  el  ordenador  lo 
llena  de  ceros,  así  que  un  elemento  nunca 
se  considera  realmente  vacío.  Los  espacios 
de  un  “array"  de  “strings"  recien  dimen- 
sionado  contienen  "strings"  vacíos. 

Ahora  prueba  el  programa  del  Listado 
1.  que  le  permitirá  introducir  los  valores 
para  el  “array". 

Aplicación  de  los  “Arrays" 

Alo  mejor  ya  conoces  los  juegos  sim- 
ples de  adivinanza  de  números,  en  los 
cuales  el  ordenador  genera  un  número  al 
azar  que  tú  tienes  que  adivinar.  El  Listado 
2 es  una  versión  muy  sencilla  de  este 
juego:  dispones  de  20  intentos  para  descu- 
brir un  número  que  se  encuentra  entre  el 
uno  y el  cincuenta. 

Un  “array"  representa  el  método  per- 
fecto para  llevar  la  cuenta  de  los  número 
que  has  adivinado.  El  Listado  3 presenta 
el  mismo  juego  de  adivinanzas,  más  dos 
adiciones  — un  verificador  de  duplicacio- 
nes y un  repaso  de  las  respuestas  equivo- 
cadas al  final  de  un  juego  perdido. 

Este  juego  mejorado  empieza  dimen- 
sionando  un  “array"  de  20  elementos,  uno 
para  cada  vez  que  intentas  adivinar  el 
número.  El  bucle  For-Next  sigue  permi- 
tiendo 20  intentos,  pero  T ha  sido  modifi- 
cada para  que  corresponda  a los  subíndi- 
ces de  los  elementos  del  "array”.  ( Acuérda- 
te. llevan  la  numeración  de  Ó a 19.) 

Cada  intento  (G)  se  coloca  en  un  ele- 
mento del  "array"  en  la  línea  80.  Las 
líneas  50-70  comparan  el  último  intento 
con  las  respuestas  ya  almacenadas  en  el 
"array".  Al  utilizar  FOR  CK=0  TO  T en 
este  bucle,  se  evita  perder  el  tiempo  com- 
probando muchos  espacios  vacíos. 

Si  G.  el  último  intento,  no  concuerda 
con  el  número  almacenado  en  un  espacio, 
se  comprueba  el  espacio  siguiente.  Si  con- 
cuerdan.  se  le  indica  al  jugador  que  lo 
intente  de  nuevo.  Si  no  concuerdan.  la  G 
se  coloca  en  el  siguiente  espacio  disponi- 
ble. y el  bucle  comienza  de  nuevo.  La  linea 


120  imprime  todos  los  números  almace- 
nados en  un  “array". 

Otra  Dimensión 

La  "fila  de  cajas"  es  un  "array"  de  una 
sola  dimensión,  todas  las  cajas  orde- 
nadas en  una  sola  fila.  Si  varias  cajas  se 
colocaran  unas  encima  de  otras  lo  que 
tenemos  es  un  "array”  de  dos  dimensio- 
nes. (Fig.  I.) 

El  comando  DIM  B(2.3)  le  indica  al 
ordenador  que  almacene  12  espacios 
como  las  cajas  de  la  Figura  I . A continua- 
ción. el  ordenador  almacena  tres  “filas" 
de  cuatro  espacios.  Los  espacios  de  la 
primera  fila  están  asignados  B(0.0)  a 
8(0,3).  La  Figura  2 demuestra  los  valores 
de  subíndice  para  los  espacios  en  este 
"array”  bi-dimensional.  Evidentemente, 
las  células  de  memoria  del  ordenador  no 
están  ordenadas  de  esta  forma,  pero  la 
imagen  sirve  para  explicarlo. 

Los  "arrays"  de  dos  dimensiones  tienen 
muchos  lisos,  desde  programas  de  hojas 
electrónicas  hasta  el  seguimiento  de  juga- 
das de  un  juego.  El  Listado  4 es  un  pro- 
grama que  utiliza  un  "array"  de  dos 
dimensiones.  La  Figura  3 presenta  las 
estadísticas  que  el  programa  maneja,  es 
decir,  los  minutos  de  castigo  para  cada 
uno  de  los  cinco  jugadores  en  los  tres 
tiempos  de  un  partido  de  hockey. 

Podrás  ver  que  la  primera  linca  del  pro- 
grama dimensiona  un  "array"  de  un  ele- 
mento más  largo  y más  profundo  que  el 
que  parece  necesario.  Es  asi  para  que  el 
usuario  pueda  ignorar  los  subíndices  de 
cero  y para  que  los  números  concuerdcn 
de  una  forma  más  lógica:  Ai  1,1 ) es  el 
primer  jugador,  primer  tiempo;  A(2.l)  es 
el  segundo  jugador  primer  tiempo,  etc. 

Algunos  expertos  podrían  considerar 
que  este  método  desaprovecha  el  espacio, 
pero  la  claridad  que  proporciona  merece 
la  pena.  (Además,  el  programa  utiliza 
estos  espacios  de  subíndice  de  cero  más 
tarde.) 

Las  lineas  20-40  introducen  los  datos 
mediante  lectura  en  cada  espacio  del 
"array".  Las  líneas  100-130  imprimen  una 
tabla  en  pantalla.  Es  importante  respetar 
la  puntuación  (por  ejemplo,  las  comas  al 
final  de  la  línea  1 20  y después  del  segundo 
comando  en  la  línea  130)  para  poder 
imprimir  la  tabla  correctamente. 


Lisiado  5.  Programa  para  sumar  las  filas  y columnas  en  el  juego  de  hockey-castigos. 

200  F0RPL=1T05 : F0RPD=1T03 
210  ñ<PLz0)«fi<PLz0)+ñ<PLzPD) 

220  NEXTPD NEXTPL 

230  PR I NT " [ H0M ] C 2CRSRD ] " 

240  F0RPL* 1 T05 : PR I NTTfiB < 37 ) ; FK  PL  z 0 ) : 
NEXTPL 

250  F0RPB=1T03 : FÜRPL=1T05 
260  R<0,PD)=fK0,PD)+FKPL,PD) 

270  NEXTPL = NEXTPD 
280  PRINT" CCRSRD] " > 

290  F0RPB=1T03 : PRINTFK0, PD) > '■  NEXT 


Lisiados  4 y 5 combinados. 

10  DIMR(3>  3) 

20  F0RPL-1 T03: FORPD- 1T03 
30  RERDfl<PL,PD> 

40  NEXTPD : NEXTPL 

50  DATfi0,2,2z5,2,0,7,0,2z0,0,2,5z7, 1 
2 

100  PRINT" CCLR]" 

110  PRINT , "PRI MERO " , " SEGUNDO " , " TERCE 
RO" 

120  F0RPL-1T05: PRI NT "CCRSRD] NO. "PL, 
130  F0RPD«1T03:PRINTA<PL,PD>, ; NEXTPD 
••  NEXTPL 

200  FORPL- 1 TOS : FORPD- 1 T03 
210  R<PL,0>-R<PL,0)+R<PL,PD> 

220  NEXTPD : NEXTPL 

230  PR I NT " C H0M ] C 2CRSRD 3 " 

240  FORPL- 1T05 : PRINTTREK37) ; R(PL; 0) : 
NEXTPL 

230  FORPD* 1T03 : FORPL* 1T05 
260  R<0,PD)*fl<0,PD>«-R<PLzPD> 

270  NEXTPL : NEXTPD 
280  PRINT" CCRSRD] " , 

290  FORPD* 1T03 : PRINTRC0/ PD) , NEXT 


Un  paso  más 

La  tabla  imprimida  por  el  programa  del 
Listado  4 da  otra  idea  de  un  "array": 
un  cuadro  de  filas  y columnas,  en  vez  de 
montones  de  cajas. 

¿Qué  otras  estadísticas  podrías  pedir  de 
esta  tabla?  Hay  dos  evidentes:  el  total  de 
los  minutos  para  cada  jugador  y el  total  de 
minutos  por  tiempo.  Para  la  primera  esta- 
dística. hav  que  sumar  cada  fila:  A(l  I) 
A( 1 ,2)  A<  1.3)  a A(5.l)  A(5.2)  A(5.3). 

Para  las  estadísticas  por  tiempo,  necesi- 
tamos la  suma  de  cada  columna: 

A(  1.1 )+ A(2.l )+ A(3,2)+A(4. 1)+A(5.l ) 

A(  1.2)+  A(2,2)+A(3.2)+A(4.2)+A(5.2) 
A(l.3)+A(2,3>+A(3,3)+A(4.3)+A(5.3) 

Ahora  se  necesitan  variables  para  alma- 
cenar estas  ocho  sumas.  Aunque  se  podía 
inicializar  un  "array"  de  una  sola  dimen- 


Lisiado  6.  Programa  para  sumar  y almacenar  el  loial  de  los  minutos  de  castigo  en  el 

partido  de  hockey. 

300  F0RPD*1TO3: fi(0z0>=fl(0z  0>+fl(0; PD> 

: NEXTPD 

310  PRINT"  CCRSRU3  "TRÍK37) ; FK0,  0) 


Fig.  3.  Estadísticas  sobre  los  castigos  durante  un  partido  de  hockey. 
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Fig.  I.  Una  imagen  del  "montón  de  cajas"  para  un  "array"  de  dos  dimensiones. 


Listados  4.  5 y 6 combinados. 

10  D I MR ( 5 , 3 ) 

20  FÜRPL= 1 TÜ5 : FORPD= 1 TOS 
30  READA<PL,PD> 

40  NEXTPD : NEXTPL 

50  DATR0, 2, 2, 5, 2,  0,7, 0,2, 0,0, 2, 5, 7, 1 
2 

100  PRINT" [CLR] " 

110  PRINT, "PRIMERO", "SEGUNDO", "TERCE 
RO" 

1 20  FORPL= 1 T05 : PR I NT " C CRSRD ] NO . " PL , 

1 30  FORPD= 1 T03  = PR I NTR  < PL , PD ) , = NEXTPD 
: NEXTPL 

200  F0RPL=1T05 : F0RPD=1T03 
210  A < PL , 0 ) = A < PL , 0 ) + A < PL , PD ) 

220  NEXTPD : NEXTPL 

230  PR I NT " [ HOM ] C 2CR3RD ] " 

240  FORPL-lTO5PRINTTRB<37);fl<PL,0) : 
NEXTPL 

250  F0RPD=1T03  F0RPL=1T05 
260  ñ<0,PD)-fl<0,PD)+ñ(PL,PD) 

270  NEXTPL : NEXTPD 
280  PRINT" [CRSRD]", 

290  FORPD=1TO3PRINTR<0,PD>, ; NEXT 
300  F0RPD*1T03 :R<.’0,0)*R(0,0)+R(0,PD) 
: NEXTPD 

310  PRINT"  CCRSRIJ] "TRB<37) ; R(0, 0) 


Listado  7.  Programa  que  demuestra  una  aplicación  de  los  "arrays"  de  "strings". 

10  DIMR$<9) 

15  FORN-0TO9 : RERDR»<N) : NEXT 
20  PRINT" COMO C SPC ] TE  C SPC ] LLRMRS? " 

25  INPUTBf 
30  FORN-0TO9 

35  IFB$=A$(N)THENPRI NT "ENTRA" : END 
40  NEXTN 

45  PRINT "VETE": END 
50  DRTRNICOLRS, DANIEL, OLOR I RETOMAS,  J 
RIME, ANTON I O , MRR I R , JOSEF I NA , P I L I , PED 
RO 


Fig.  2.  Valores  de  subíndice  para  el 
"array"  de  dos  dimensiones  11(2.3). 
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sión  para  almacenarlas,  resulta  que  dis- 
ponemos de  unos  espacios  vacíos.  Se  uti- 
lizan como  se  demuestra  a continuación: 
A(O.I)=Totales  del  primer  tiempo 
A(0.2)=Totales  del  segundo  tiempo 
A(0,3)=Totalcs  del  tercer  tiempo 
A( l,0)=Totales  del  primer  jugador 
A(2.0)=Total  del  segundo  jugador 
etcétera. 

F.I  Listado  5 se  añade  al  programa.  Las 
lineas  200-220  utilizan  los  bucles  anidados 
For-Ncxt  para  sumar  las  filas  de  la  tabla  y 
almacenar  las  respuestas  de  A(I.O)  a 
A(5,0).  Las  lineas  230  y 240  imprimen  los 
resultados  en  pantalla.  Las  lineas  250-290 
suman  las  columnas,  almacenan  las  res- 
puestas de  A(0.l)a  A(0,3)c  imprimen  las 
respuestas  en  pantalla. 

Hay  otra  estadística  que  puede  ser  pro- 
porcionada por  el  programa:  el  total  de 
los  minutos  de  castigo  del  juego.  A lo 
mejor  te  has  dado  cuenta  de  que  todavía 
queda  un  espacio  de  “array"  vacio: 
AÍ0.0).  Este  se  puede  utilizar  para  alma- 
cenar el  total  de  las  columnas  (el  total  de 
las  filas  funciona  igual  de  bien).  Se  agrega 
el  Listado  6 al  programa  y se  vuelve  a 
ejecutar. 

Aplicaciones  de  los  “arrays” 
de  “strings” 

Los  “arrays"  de  "strings"  se  utilizan  con 
frecuencia  en  juegos  de  pregunta/res- 
puesta. Para  simplificar,  dos  “arrays"  de 
una  sola  dimensión  pueden  ser  utilizados 
para  que  A$  ( I ) sea  la  respuesta  que 
acompaña  AS  (I).  Otra  aplicación  de  los 
“strings"  de  "arrays"  es  para  la  clasifica- 
ción en  orden  alfabético.  El  tercer  uso  es 
para  archivar  y recuperar  registros. 

El  programa  del  Listado  7 demuestra 
este  uso:  un  club  privado  tiene  una  puerta 
de  apertura  controlada  por  ordenador  que 
se  abre  solamente  si  se  proporciona  el 
nombre  correcto.  El  programa  funciona 
casi  de  la  misma  forma  que  la  subrutina 
en  el  juego  de  adivinar;  compara  el  nom- 
bre dado  al  nombre  almacenado  en  cada 
espacio  del  “array". 

Dimensiones  múltiples 

Los  "arrays"  de  “strings"  no  están  limi- 
tados a una  dimensión,  ni  los  "arrays" 
numéricos  a dos  dimensiones.  Es  posible 
utilizar  tres,  cuatro,  cinco  o más  dimen- 
siones. ¿Qué  se  puede  hacer  con  ellas? 

Por  ejemplo,  podrías  necesitar  llevar  la 
cuenta  de  los  minutos  de  castigo  de  los 
jugadores  de  hockey  por  tiempo,  por 
juego  y por  temporada.  En  este  caso,  nece- 
sitas un  “array"  de  tres  dimensiones,  y 
puedes  visualizar  la  tercera  dimensión 
(temporadas)  como  páginas  llenas  de  filas 
V columnas  de  números. 

Aunque  si  existen  limites  a la  operación 
de  dimensionar  en  el  Commodore.  aún 
incluyendo  el  amplio  espacio  de  memoria, 
no  es  probable  que  rebases  la  capacidad 
del  equipo. 
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MANTENIMIENTO  DE 
ORDENADORES  COMMODORE 


• Desde  1979  damos  mantenimiento  a los  orde- 
nadores Commodore  y a sus  periféricos,  en  las 
series  2000,  3000,  4000,  8000,  y 700;  con 
todos  sus  periféricos  además  de  impresoras 
Epson,  Citoh,  Oki,  Texas,  Seikosha,  etc.;  discos 
Commodore,  Computhink,  Pertec,  Tandon, 
MPI,  etc. 


• Además,  al  suscribir  un  contrato  de  manteni- 
miento o contrato  de  asistencia  técnica,  le 
obsequiamos  con  un  seguro  a todo  riesgo  que 
cubre  todas  las  contingencias,  incluso  la  recu- 
peración de  datos. 


• Servicios  especiales  24  horas/365  días  para 
instalaciones  críticas. 


Iberdata,  S.  A.  División  Mantenimiento  de  Ordenadores 

ALICANTE  MADRID  VALENCIA 

(965)  12  09  00  (91)459  01  50  (96)351  19  61 

</  Padre  Vendrell,  4 P*  Castellana,  141  «/  Cervantes,  2 (Guillén  de  Castro) 

Alicante-3  Madrid- 1 6 Valencia-5 
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Compartiendo  Experiencias 
entre  amigos 


Esta  sección  está 
dedicada  a la  cola- 
boración de  todos 
nuestros  lectores  y está 
dividida  en  dos  partes: 

1)  Programación: 
Programas  y similares 

2)  Magia 

3)  Trucos,  sugerencias, 
etc. 

Habrá  premios  y ali- 
cientes "para  todos  los 
participantes”. 

Todas  las  colabora- 
ciones deben  venir  es-  _ 


critas  a máquina  a 
doble  espacio  y los 
programas  grabados  en 
cinta  (si  es  posible),  o 
con  el  listado  completo 
en  impresora.  Nuestros 
lectores  más  jóvenes 
pueden  escribir  a mano 
pero  con  letra  muy 
clara. 

Enviarnos  vuestra  di- 
rección para  que  podáis 
poneros  en  contacto  unos 
con  otros.  ¡Animaros, 
chicos  (...y  chicas)! 


Juego  de  los  Chinos 

Aunque  no  lo  he  visto  nunca  publicado, 
me  cuesta  creer  que  un  juego  tan  popular  como  éste  no 
tenga  ya  otras  muchas  versiones  para 
ordenador  más  o menos  logradas.  Antes  de  comentarlo 
con  detalle,  conviene  puntualizar 
algunos  aspectos  sobre  la  impresión  que  adjunto  del  mismo. 


C-64 


En  la  linca  20  se  dan  unas  equivalencias 
indispensables  (trébol  = corazón;  cua- 
drado = 'Q').  Luego,  tras  los  títulos,  se 
pasa  al  modo  de  minúsculas  (130).  lo  que 
no  queda  directamente  reflejado  en  la 
impresión.  Para  ello,  se  han  subrayado  las 
letras  que  en  el  listado  original  iban  (y  hay 
que  escribir)  en  MAYUSCULA.  Merece 
la  pena  mantener  en  general  el  modo  de 
minúsculas,  sobre  todo  para  las  instruc- 
ciones iniciales  (130-210).  ya  que  se  leen 
con  mayor  comodidad,  y también  para 
alternario  con  mensajes  en  mayúscula  y 
dar  asi  más  diversidad  gráfica  a una  pan- 
talla relativamente  repleta  de  texto. 


El  programa  ha  sido  ensayado  en  un 
C-64;  de  ahi  que  la  impresión  adjunta 
ocupe  40  tipos  por  linca,  lo  mismo  que  la 
pantalla.  Eso  ayuda  muchísimo,  en  espe- 
cial para  la  copia  de  caracteres  iguales 
seguidos  o de  expresiones  separadas  por 
más  de  tres  espacios.  Para  el  VIC-20, 
basta  redistribuir  el  espacio  de  las  instruc- 
ciones y mensajes  subsiguientes. 

No  hay  efectos  de  color  ni  de  sonido.  Se 
ha  procurado,  en  cambio,  que  el  pro- 
grama sea  robusto  y aclaratorio  ante 
cualquier  desviación  por  parte  de  un 
usuario  ignorante  del  reglamento  o un 
tanto  proclive  a las  trampas.  El  juego  se 


desarrolla  sólo  entre  el  usuario  y el  orde- 
nador. Cada  jugador  sólo  conoce  la  decla- 
ración final  de  su  oponente.  Ahora  bien, 
el  hecho  de  intervenir  una  sola  pareja  hace 
más  vulnerable  al  jugador  que  descubre, 
digamos  que  involuntariamente,  el  propio 
juego  al  contrincante.  Es  justo  que  el 
ordenador  esté  apercibido  de  esta  even- 
tualidad (líneas  320-330  y 410-420).  en  la 
que.  sin  embargo,  puede  incurrir  el 
usuario. 

No  seria  difícil  aumentar  el  programa 
para  hacer  que  el  ordenador  se  desdoblase 
en  dos  o más  jugadores,  junto  o no  con  el 
usuario,  y estableciera  un  sistema  de  eli- 
minación de  perdedores. 

Comentario  detallado 
del  programa 

130-210  Entrada  al  modo  de  minúsculas. 

titulo  e instrucciones. 

220-240  Acceso  al  programa. 

290...  Definición  previa  de  variables  de 
incremento  constante:  Ql  puntos 
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60  REM 

70  REM##  R.C.  MñSSO  *#  MARZO  1984  *# 

80  REM 

110  REM##  INSTRUCCIONES  DEL  JUEGO  *# 

120  REM 

130  PRI NTCHPí < 14)" [CLR] ( CRSRD ] t SPC J [SHIFT J] 
[ SPC  ] [ SH I FTU ] [ SPC  ] [ SH I FTE ] [ SPC  ] [ SH I FTG ] 

C SPC ] [ SH I FTO ] [ 3SPC  DCSHIFTDK  SPC ] CSHIFTE  3 
C 3SPC  HSHIFTLK  SPC  ] [ SH I FTO ] [ SPC  J [ SH IFTS ] 
C3SPC] CSHIFTC] CSPC3  CSHIFTH] [SPC ] [SHIFTI ] 
[SPC] CSHIFTNJ [SPC] [SHIFTO] [SPCICSHIFTS]" 

140  PRI NT "[CRSRD] [SPC] 


15G  PRINT" [2CRSRD] [SPC] ÍSHIFT I ] [SHIFTN] 
[SHIFTSJÍSHIFTT] [SHIFTR][SHIFTU][2SHIFTi  ] 
[SHIFTI ] [SHIFTO] [SHIFTN] [3HIFTE][SHIFTS] 

" PRINT" [SPC] [SHIFTI 1MAGINATEÍSPCJÜ 
UE [ SPC ] TU [ SPC ] V [ SPC ] VO [ SPC ] TENEMOS . [ 2SPC ] 
CRDRÍ3SPC] " < 

160  PRINT" [SPC] UNO» [ SPC] TRES [ SPC ]MON 
ED AS [ SPC ] EN [ SPC ] EL [ SPCJBOLS I LLO • [ SPC ] 

VC SPC] QUE [SPC] PODEMOS [SPC] SACARLAS ■ " » 

170  PR I NT "[ SPC ] OCULTAS! SPC ]EN[ SPC] LA 
[SPC IMANO» [3SPC] LAS [SPC] TRES» [SPC] DO 
S [ SPC ] DE [ SPC ] ELLAS , [ SPC ] UNA [ SPC ] O [ SPC ] 
BIENCSPC1NIN-", 

180  PR I NT " [ SPC ] CUNA . [ 2SPC ] ÍSH 1 F TE ]L [ SPC ] 
JUEGO  [ SPC  ] CONS I STE  [SPC  ] EN  [ SPC  ] AD I V I N 
AR ( 4SPC ] CUANTAS [ SPC ] MONEDAS [ SPC ] GUAR 
DAMOSÍSPC]"» 

190  PRINT " ENTRE [ SPC  JAMBAS [ 3SPC JMANOS 
. [ SPC  ] TEN I ENDO [ SPC  ] EN [ SPC  JCUENTA [ SPC  J 
QUE [ SPC ] I GNOR AMOS [ SPC ] CUANTAS [ SPC ] " » 

200  PRI NT "ESCONDE [SPCJ EL [SPC JOTRO. " 

PRINT"! 2CRSRD ] [ SPC ] [ SH I FTH ] AREMOS [ SPC ] 

1 8 C SPC  J JUGADAS [ SPC ] EN [ SPC ] TURNOS [ SPC  J 
ALTERNOS. " 

210  PR  I NT  " [ 3CRSRD  ] [ SPC  ] [ SH  I F TC  J 'JANDO 

[ SPC ] LO [ SPC  J HA VAS [ SPC ] ENTEND I DO , [ SPC J 

PULSA [ SPC ] LA [5SPCJ BARRA [SPC IDE [SPC JESPACIO." 

220  GETA#  IFAt=" "THEN220 

230  IFA#-CHR*<32>THEN290 

240  GOTO220 

260  REM 

270  REM  ##  FORMATO  GENERAL  DE  LAS  BAZAS  ** 
280  REM 

290  Q1=0  Q2=0  NR=1 

300  F0RJ=1T05  PR I NT " [ CLR ] C CRSRD ] [ 2SPC ] 
[SHIFTNJR. " ,NR» " [ 3SPC ] [ SHIFTT ] [ SHI FTU  J 
[ SPC ][SHIFTT][SHIFTUJ[SHIFTR] [SHIFTN] 
[SHIFTO]" 

310  PRINT" [SPCJ 

••  = 1 

320  OOSUB609  IFB»0THENB2=1  A2=l  GOTO 
360 

330  I FBI *6THENB2=5  A 2=2  GOTO360 
340  GOSUB 720 

350  I FB2*B 1 0RB2>6 1 ♦ 30RB2 CB 1 -3THENGÚS 
UB760  GOTO350 

360  PR I NT " [ CRSRD ] [ SPC ] [ SH IFTVJOÍ SPC ] 

DOV  [ SPC  J UN  [ SF'C  ] TOTAL  [ SPC  ] DE  " » B2 
370  GOSUB900 

380  PRINT"! CLR ] [ CRSRD ] [ 2SPC ] (SH IF TNJ 

R. " » NR • " [ 2SPC J [ SHI FTM ] [ SH I FT I ] [ SPC ] [ SH IFTT ] 

[SHIFTUJISHIFTR] [SHIFTN] [SHIFTO]" 

390  PRI NT "[SPCJ 

••  NF:=NR+1 

400  GOSUB600  GOSUB800 

410  I FB2=0THENA2= 1 B2=l 

420  IFB2=6THENA2=2  B2=5 

430  PR I NT " [ CRSRD ] [ SPC ] [ SH I F T V ] O [ SPC ] 

DOV [ SPC  J UN [ SPC ] TOTAL [ SPC IDE"» B2 
440  GOSUB 700 


c- 


450  I FB 1 -B2THENPR I NT " [ CRSRD ] [ SPC ] [ SH I F TN ] 

0. [ 2SPC ] [ SH I FTE ] SO [ SPC ] VA [ SPC ] LO [ SPC ] 

HE [ SPC J D I CHO [ SPC ] VO . [ 2SPC ] [ SH I FTR ] EP 
ITE."  GOSUB740  GOTO450 
460  GOSUB900  NEXTJ 
490  REM 

500  REM*#  RESULTADO  GLOBAL  ## 

510  REM 

520  PR I NT " [ CLR ] [ 4CRSRD ] [ SPC ] [ SH I FTR ] 
[SHIFTE]  [3HIFTS]  [SHIFT'J]  [SHIFTLJ  [SHIFTT] 
[SHIFTA] CSHIFTD]  [SHIFTO]  [SPCJ  [SHIFTGJ 
[SHIFTLJ [ SHIFTO] [SHIFTB] [SHIFTA] [SHI FTL] 

" PR I NT " [ 2CRSRD ] [ 3SPC ] [SH I FTT ] [ SH I FTU ] 

" , Q 1 PR I NT " [ 2CRSRD  J [ 3SPC ] [ SH I FTV ] [SHI FTO ] 

" , Q2 

530  PR I NT " [ 7CRSRD ] [ SPC ] [ SH I FT J ] UGAMO 
S[  SPC]  DE  [SPCJ  NUEVO  [SPCJ  ([SHIFTSJ/ISHIFTN])?" 
540  GE TE*  IFE#=" "THEN540 
550  IFEJm"S"THEN290 

560  I FE#*MN" THENPR I NTCHR# (.  1 42)  " [ CLR ] " END 
570  GOTO540 
600  REM 

610  REM**  EXTRACCION  DEL  USUARIO  ** 

620  REM 

630  PRINT "[CRSRD] [SPC] [SHIFTT]U» [SPC] 
CUANTAS [ SPC ] SACAS! SPC 1 DEL [ SPC ] BÚLS I LLO?" 

640  INP'JT"  [SPC  ] " » Al 

650  I F A 1 <0ORA 1 >3THENPR I NT " [ CRSRD ] [ SPC ] 
[SHIFTNJO. [2SPC] [SHIFTH]A[SPC  JDECSPC] 

SER [SPC] ENTRE [SPC] ' 0 [SPC]V[SPC]  3 " 

GÜTO640 
660  RETIJRN 
700  REM 

710  REM**  DECLARACION  DEL  USUARIO  ** 

720  REM 

730  PR I NT " [ CRSRD ] [ SPC ] CSHI FTC ] CANTAS 
[SPCJ CREES [SPC] QUE [SPCJ HABRA» [SPC  JEN 
[SPC] TOTAL?" 

740  INP'JT" [SPCJ"  »B1 

750  I F B 1<A 1 ORB 1 >A 1 +3THENPR I N 1 " [ CRSRD J 

[ SPC ] [ SH I F TN ] O [ SPC ] ES [ SPC ] POS I BLE . [ 2SPC J 

[SHIFTR]EPITE. " G0T0740 

760  RET'JRN 

300  REM 

810  F:EM*#  APUESTA  DEL  ORDENADOR  ** 

320  REM 

830  A2=INT(RND> l/*4>+0 
840  B2=  I NT.  ( RND  ( 1 > *4  ) ♦ A2 
350  RET'JRN 
900  REM 

910  REM**  REPRESENTACION  DEL  RESULTA 
DO  V ASIGNACION  DE  PUNTOS  #* 

920  REM 

•930  PR I NT " [CRSRD  J [ SPC  3 [ SH I FTC] OMO L SPC  J 
VOC SPCJ HE [SPCJ SACADO" . A2» "MONEDAS. . . 

" FORTUITO  1900  NEXTT  SU=A1+A2 

940  PRI NT 1 " [ 2CRSRD ] [SPC ] [SH I FTE ] [SH IFTL ] 

[SPC]  [SHIFTR]  [SHIFTE  JíSHIFTS]  [SHIFT'J] 

[SHIFTLJ [SHIFTT] [SHIFTA] [SHIFTD] [SHIFTO J 

[ SPC ] [ SHIFTE ] [SHI FTSJ  [ SPC  ] " » S'J 

<50  1 F3U=B 1 THENPR I NT " [ 2C  RSRD J í SPC J [SH IFTT  J 

[SHIFT'J]  [SPCJ  [SHIFTGJ  [SHIFTA]  [SHIFTN] 

[ SH IFTA  J [ SH I F TS1 \ " 01=01  + 1 GOTÜ980 

•960  I F SU=B2THENPR  I NT  " [ 2CRSRD  J [ SPC  ] [ SH  IF  TGJ 

[SHIFTA] [SHIFTN] [SHIFTO] [SPC JCSHIFTV] 

[SHIFTO]'"  02=02+ 1 GOTO980 

9 70  PR I NT " [ 2CRSRD ] [ SPC ] [ SH I F TN  J [ SH I FT A ] 

[SHIFTD] [SHIFTI] [SHIFTE] [SPC] LSHIFTGJ 

[SHIFTA] [SHIFTN] [SHIFTA]" 

980  PR I NT " [ 3CRSRD ] [ SPC ] [ SH 1 F TP ] AR A [ SPC ] 
CONTINUAR» [ SPCJ  PULSA [ SPC ] LA [ SPC ] B ARR 
h [ SPC J DE [ 7SPC ][ SHIFTE ][ SH I FTS ][ SH IFTP ] 
[SHIFTA] [SHIFTCl [SHIFTI] [SHIFTO]" 

390  GETZí  IFZ*=" "THEN990 
1 000  I FZ#=CHRÍ  (.  32  ) THENRETURN 
1010  GOTÜ390 


Commodore  World  'lavo  1484/29 


C' 

del  usuario;  Q2  puntos  del  or- 
denador: NR  contaje  de  las  bazas. 

300-460  Bucle  de  cinco  dobles  bazas.  Fl 
turno  del  usuario  va  de  300  a 370. 
El  del  ordenador,  de  380  a 460. 

320,...  Envió  a la  subrutina  600  para  la 
extracción  del  usuario. 

630-650  Extracción  de  monedas 
(sólo  entre  cero  y 3)  por 
parte  del  usuario  (va- 
riable Al). 

320:...  F.nvio  a la  subrutina  700  para  la 
declaración  del  usuario. 

730-740  Apuesta  sobre  el  total 
de  monedas  (variable  B I ). 

750...  Este  total  no  puede  ser 
inferiora  Al  ni  superior 
a A 1+3  (esto  es.  las 
propias  más  las  tres  que 
puede  extraer  el  adver- 
sario. 

320.. ..  Si  el  usuario  da  un  total  de  cero  y 

descubre,  por  tanto,  su  juego  (ya 
que  sólo  puede  tener  cero  mo- 
nedas en  la  mano),  el  ordenador 
hace  directamente  una  apuesta 
ganadora  sacando  una  moneda 
( A2)  y dando  un  total  de  I en  B2. 

330.. .  Si  el  usuario  da  un  total  de  6 

descubriendo  también  su  juego 
(pues  sólo  puede  tener  3 monedas 
en  la  mano),  el  ordenador  también 
hace  otra  apuesta  ganadora  sa- 
cando 2 monedas  (A2)  y dando 
un  total  de  5 (B2)  en  360. 


Invasión 

Bueno  pues,  ahí  va  eso  por  delante,  para 
que  lo  tratéis  como  sabéis.  Tiempo 
atrás  mandé  algunas  colaboraciones  al 
Club,  varias  de  ellas  no  se  publicaron  (así 
debían  de  ser  de  malas),  vamos  a ver 
ahora  qué  tal  en  esta  nueva  etapa. 

Para  empezar  os  paso  el  listado  de  un 
programa  que  he  elegido  entre  los  de  mi 
cajón  de  sastre,  aunque  como  no  me  va  la 


340.. .  Si  no  se  cumple  ninguna  de  las 

condiciones  anteriores,  se  envia  a 
la  subrutina  800  para  la  apuesta 
del  ordenador. 

830.. .  Extracción  aleatoria  de 

cero  a 3 monedas  (A2). 

840.. .  Declaración  del  total  entre 

A2  y 6 (B2). 

350.. .  Se  evita  que  el  ordenador  dé  la 

misma  declaración  que  el  usuario 
o dé  una  que  se  diferencie  en  más 
de  3 de  la  de  éste.  Si  asi  ocurre,  se 
repite  sólo  la  opción  de  B2  (envío 
a 840). 

360.. .  Respuesta  del  ordenador. 

370.. .  Envió  a la  subrutina  900  para  el 

resultado  y la  asignaepuntos. 

930.. .  Se  muestra  la  extracción 

del  ordenador  (A2).  Bu- 
cle de  retardo  para  simu- 
lar el  tiempo  que  tardan 
los  jugadores  para  abrir 
la  mano  y contar  el  total 
de  monedas. 

940.. .  Resultado  real  (variable 

SU). 

950-970  Asigna  los  puntos  al 
acertante,  si  lo  hay.  o a 
nadie.  Incrementa,  en 
su  caso,  los  puntos  del 
ganador. 

980-1010  Vuelta  a la  siguiente 
apuesta. 

380-390  Cambio  de  turno.  El  ordenador 
declara  primero  ahora. 


explicación  mejor  que  lo  teclee  alguien  y 
mire  qué  hace. 

De  paso  os  diré  que  por  aquí  tengo 


400.. .  Envió  a la  subrutína  600  para 

que  el  usuario  haga  su  extracción 
previa  (véase  320,  ). 

Envió  a la  subrutina  800  para  la 
apuesta  del  ordenador  (véase  340). 
410-420  Evita  que  el  ordenador  incurra 
en  el  error  de  apostar  a cero  o a 6 
(compárese  con  320-330)  cam- 
biando el  valor  de  las  variables 
+ 1 y a -I,  respectivamente. 

430.. .  El  ordenador  hace  su  apuesta. 

440.. .  Envió  a la  subrutina  700  para  la 

declaración  del  usuario  (véase 
320,). 

450.. .  Evita  que  el  usuario  apueste  lo 

mismo  que  el  ordenador. 

460.. .  Envió  a la  subrutina  900.  que  da 

el  resultado  y asigna  los  puntos 
(véase  370). 

Cierra  el  bucle  principal,  abierto 
en  300.  para  las  cinco  dobles 
bazas. 

520.. .  Resultado  global  con  los  dos 

últimos  valores  de  Ql  y Q2. 
530-570  Vuelta  optativa  al  juego  y a los 
valores  iniciales  de  Ql.  Q2  y NR. 
en  caso  afirmativo.  En  caso  con- 
trario, vuelta  al  modo  de  mayús- 
culas y final. 


R.  C.  Massó 
Barcelona 

Dirección  omitida  por  expreso  deseo. 


VI  (-20 


"lanzados"  varios  programas  de  los  que  a 
su  tiempo  os  hablaré. 


Frúncese  Castanver  I*. 

C/  Querétaro,  5',  E-2.\  2“  D 
Palma  de  Mallorca,  7 
Baleares 


1 P0KE52, 26 : P0KE56, 26 : CLR : G0TÜ25  <C> 

► 

12  GÜSUB2  IFF>PTHENG0SUB4 

SISC0BIT  < MALLORCA > 

1 3 I FRND < 1 ». 9THENGGSUB 1 6 PR I NT " [ H0M 3 

2 POKER, 0 POKER- 1,0  POKER-2,0  POKER- 

[ 2CRSRD  ] [ SPC  3 0 C 2SPC  3 0 C SPC  3 0 C 3SPC  3 0 [ 2SPC  3 

3,0  RETURN 

0CSPC30" : POKER- 3,  140 

3 PR I NT " [ H0M 3 [ RVS0N ] PUNTOS : " PU  RETUR 

14  IFRNIK 1 ) > . 95THENPR I NT " [ H0M 3 [ 2CRSRD3 

N 

C22SPC3" 

4 P0KEF , 32 : F=F-22  POKEF+C , 3 : POKEF , 3 

15  00T0S 

5 I FPEEK  (.  F-22 > =2THENP0KER- 1 , 240  PU=P 

16  H=  I NT < RND < 1 ) *PC ) + 1 50  IFPO250THEN 

U+l  PC=PC+1  G0SUB3 

1? 

6 I FPEEK < F-22 > “0THENPOKER- 1 , 220 : PU=P 

17  I FPEEK  < F'+H  > O32THENP0KER , 240  POKE 

U+5 • G0SUB3 

P+C+H , 7 POKEP+H , 5 ■ PC*PC+ 1 RETURN 

7 RETURN 

18  POKER-2, 130  POKEP+C+H . 4 POKEP+H, 2 

S K =PEEK < 203 > • P0KEB , 32  D=D+ < K=3 1 ) - < K 

RETURN 

=23)  I FD<TTHENB=B+22 

19  IFPC<PUTHEN23 

9 I FB>T+2 1 THEND=D-22 

20  F0RE=TT0T +20STEP2 : POKEE , 2 NEXT 

10  P0KEB+C, 0 POKED, 1 

2 1 POKER-3 , 0 : F0RE=2T06  FORH=0TO2 1 Pfl 

1 1 I FK=32THENF=D-22 ■ POKEF+C , 2 POKEF , 

KET+C+H . E POKER  - 1 , HSE+129  F0RB=1TH i4ft 

1 70 : F0RE= 1 00TO0STEP-6 ■ POKER-2 , E+ 1 55 : 

NEXTB , H , E : G0SUB3 

NEXT 

► 

22  PR I NT " [ HOM 3 C 9CRSRB 3 [ RVS0N 3 LA C SPC 3 
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I UVAS  I ON  [ SPC  ] SE  [ SPC  ] Hh  [ 3PC  ] CÜM-PLETA 
DO  [ SPC  ] PESE  C SPC  ]A[ SPC] TUS [SPC]  ES-FUE 
RZQS. " 0=6  00TQ24 

23  G0SUE2  PR I NT  " [ HuM ] [ 9CRSRD ] [ RVSON ] 

L O C SPC ] H I CISTE [ SPC ] HUVENC SPC ] TODOS [ SPC ] 
COMO C SPC ] COME JOS " 0= 1 2 

24  FORE=0TOG  FüRH=255TO120STEP-5  POK 
ER-l.H NEKTH , E G0SUB2  G0SUB35  RUN 30 

25  PR I MT " C CLR ] [ PUR ] i 22C0MMP ] [ RVSON ] [ 2SPC ] 
OTROS C SPC ]UJNflTI COS C2SPC] ! ! I " 

26  PR  I NT  " [ CR3RD  ] C C VN  ] RES I STE  [ SPC  ] V [ SPC  ] 
CARGATE [ SPC ] LOS [ SPC  JLUNAT I COS  C SPC ] Fh 
NAT I COS [ 3SPC3QUE C SPC ] TE C SPC ] ASALTAN “ 

27  PR I NT " [ CRSRD ] [ 2SPC ] CONTROLA [ SPC ] E 

L [ SPC ] S I EMBRA-M I ÑAS [ SPC ] CON C SPC ]LOS C SPC ] 

[ BLU ] CURSORES C C VN ] V [ SPC ] SUELTA [ SPC ] L 
AS CSPC] CARGAS" 

28  PR I NT " PULSANDO [SPC ] C RVSON ] [ BLU ] ES 
PAC I O C RVSQFF ] C 6SPC ] [ CRSRD ]AL IENS ; [CRSRD] 

29  PR I NT " [ PUR ] [ SPC ] [ SH I F TM ] [ SH I FTN ] [ CRSRD ] 
[ 2CRSRL ] C RVSON ] [ COMMV ] [ COMMC ] [ RVSOFF ] 

[ CRSRD ] [ 2CRSRL ] [ SH I FTG ] [ SH I FTH ] [ CRSRU ] 


► [ CVN ] 1 [ SPC ] PUNTO [ CRSRU ] [ RED ] C SPC ] [ SH I F TL ] 
[ SHIFT9] [ CRSRD ] [ 2CRSRL ] [ RVSON ] [ COMMV ] 

[ COMMC ] [ RVSOFF ] [CRSRD ] [ 2CRSRL ] [ SH I FTN] 

[ SH I F TM ] [ CRSRU ] [ CVN ] 5 [ SPC ] PUNTOS [ CRSRD ] 

" G0SUB35 

30  PPI NT "[CLR] [RED] [RVSON] PUNTOS  [SPC] 

O"  PQKE36869 • 255 

31  F0PE=7168T07215  READD -POKEE.D  NEX 
T 

32  F0RE=7424T07432  POKEE.0  NEXT 

33  C= 30720  R=368?7  POKER+ 1 , 8 POKER+2 
, 25  : D=8 1 42 : T *D-22  P-7745 

34  F0PE=DT08185  POKEE+C, 4 P0KEE.4  NE 
XT  D=T+1 1 G0T08 

35  PR I NT " [ CRSRD ] [ BLK ] [ 3SPC ] [ RVSON ] [ PUR ] 
PULSA [ SPC ] UNA [ SPC ] TECLA" : POKE 198,0 

36  GETAf  IFA$=" "THEN36 

37  RETURN 

38  DATA66 ,66,126,24.126,255,60,102,2 
4,24,24,60,60, 126, 126,  126 

39  DATA 129, 66, 36.24, 126,255, 165-36,2 
4,24,60,60,60,24,24,0 

40  DATA255 , 2 , 255 , 8 • 255 , 32 , 255 ,128, 72 
,38, 148,94, 122,41 . 100, 18 


Basic  en  español 


Amigos  de  COMMODORE  WORLD:  os 
envío  algunas  preguntas  y sugerencias,  junto  con 
un  programa  para  que,  si  podéis,  lo  publiquéis. 


10  PR I NT " C CLR ] [ 2CRSRD ] COP I ANDO [ SPC ] E 
L[ SPC] BASIC"  POKE 1,55 
20  FORR=4O960TÜ49 1 5 1 POKER , PEEK <R> : N 
EXT  R=41 1 17 

30  Aí=""  B*="":N=0  I FR=4 1 372THENR®R+ 

1 

40  N=N+1  I FPEEK < N+R  > < 1 28THENBí*B$+CH 
R$  < PEEK  < N+R ) ) : GOTO40 
50  BÍ=BÍ+CHR*(PEEK(N+R)-128)  B*LEN(B 
*) 

60  PR I NT " [ 2CRSRD ] B AS I C [ SPC ] AC TUAL [ SPC ] 
[4SPCJ " , B# 

70  I NPUT "[CRSRD] SUSTITUIR! SPC ] POR . . . 
",A#  IFAf ="F"THEN130 
30  IFAí=" "THEN120 

90  I FLEN < A$  > OBTHENPR I NTB  " [ SPC  ] CARAC 
TERES, [SPC 3 POR [SPC] FAVOR"  GOTO60 
1O0  IFB>1THENFQRN=1T0B-1 : POKEN+R, ASC 
(MIDtCAf , N, 1 >) : NEXT 
1 1 0 PQKEN+R , ASC < R I GHT» C A* , 1 ) ) + 1 28 
120  R=R+N  IFR<41757THEN30 
130  POKE 1,54 

1 40  READH  FÜRV=0TO4  READB  POKEA+V, B 

NEXT 

150  END  RESTORE  GOTO30 
1 000  DRTA4 1 848 , 76 , 73 , 83 , 84 , 79 
200O  REM 
2010  REM 

2020  REM  *#  GCO  13-3-1984  ** 


HUELGA  DE 
ARTES  GRAFICAS 
Y CORREOS 

Debido  a la  huelga 
de  los  trabajadores  del  sector  de 
Artes  Gráficas  y Correos, 
nuestro  número  anterior 
(y  posiblemente  éste  número) 
llegó  con  retraso  a 
nuestros  lectores.  Rogamos 
sepan  disculpar  este 
contratiempo  ajeno  a nuestra 
voluntad  y hacemos  votos 
para  que  no  ocurra  lo  mismo  con 
próximos  números,  que 
también  pueden  verse  involucrados 
en  una  nueva  amenaza  de  huelga. 
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Es  un  programa  sencillo  que  permite 
cambiar  todo  el  BASIC  y casi  todos  los 
mensajes  de  error:  está  basado  en  el  arti- 
culo "Arquitectura  del  COMMODORF 
64  ( 1 1 )"  que  apareció  en  el  n°  1 3 de  CLU B 
COMMODORE. 

I.os  comandos  BASIC  están  almacena- 
dos entre  las  direcciones  41 1 18  y 41372  y 
los  mensajes  de  error  entre  41374  y 41757. 
Hay  otros  mensajes  desperdigados  por 
todo  el  intérprete. 

El  programa  comienza  copiando  en 
RAM  el  intérprete  BASIC  completo,  lo 
que  le  lleva  unos  37  segundos:  después 
ofrece  uno  por  uno  todos  los  comandos  en 
el  mismo  orden  en  que  están  almacena- 
dos. y a continuación  hace  lo  mismo  con 
los  mensajes  de  error.  Unos  y otros  están 
almacenados  en  la  memoria  en  minúscu- 


las con  excepción  de  la  última  letra,  que 
va  en  mayúscula  (se  ha  sumado  128  al 
código). 

Si  no  se  quiere  cambiar  un  comando  o 
mensaje,  pulsar  RETURN.  El  programa 
sólo  admite  palabras  de  igual  longitud  que 
las  ya  existentes:  ignoro  si  puede  alterarse 
la  longitud  sin  que  se  produzcan  errores 
de  funcionamiento. 

Para  salir  basta  con  introducir  una  "F": 
después  de  eso.  el  ordenador  trabajará 
con  la  copia  modificada  del  intérprete,  lo 
que  se  nota  inmediatamente  porque  apa- 
recerá una  versión  castellanizada  del  fami- 
liar "READY"  (esta  es  la  misión  de  las 
lineas  140  \ 1000).  Usando CONT después 
de  haber  salido,  se  puede  continuar 
haciendo  cambios.  El  IF  de  la  linea  30 
tiene  la  misión  de  saltar  el  cero  que  hay  en 


la  posición  41373  V que  sirve,  supongo, 
como  separación  entre  lo  que  son  coman- 
dos y mensajes  de  error. 

Nota:  si  se  crea  un  vocabulario  propio, 
éste  será  compatible  con  todos  los  pro- 
gramas que  ya  están  grabados  en  cinta  o 
disco,  salvo  que  contengan  alguna  varia- 
ble que  está  prohibida  por  el  nuevo 
BASIC'.  Por  ejemplo,  al  sustituir  IF  por 
SI.  la  variable  SI  queda  prohibida. 

Espero  que  el  programa  sirva  a aquéllos 
que  quieran  empezar  a hurgar  en  el 
interior  del  ordenador  (como  me  ocurre  a 
mi). 


Guillermo  Caamaño  Olivares 
Arabial,  II  - I”  D 
GRANADA-3 


Y Otra  de  Marcianitos 


Aqucst  programa  és  deis  de  macianitos. 

La  seva  extensió  és  de  1285  bites. 

La  distribució  del  programa  és  la 

seguenta: 

— (0-1)  i ( 1900-1905)  inicialitzcn  les  varia- 
bles i liquen  en  pantalla  el  misatje 
d'inici  del  joc. 

— (2-10)  configura  el  obni  i determina  la 
seva  posició  arbitrariament, 

— (1015-1030)  espera  les  ordres  de  movi- 
ment  i tir. 

— (1700-1735)  crea  l'efccta  de  tir. 

— (2000-2025)  mou  el  cañó  i esborra  el 
rastre. 


— ( 1035)  aquesta  instrucció  fa  que  cada  15 
moviments  del  cañó  es  produeixi  un 
moviment  de  l'obni. 


— (3000-3020)  crea  l’cfecta  d'explosió. 

— (3030-3032)  resta  quict  esperant  l’ordrc 
de  reinici  del  joc. 

NOTA  DE  REDACCION:  ¡¡Los  que  de- 
seéis instrucciones  en  castellano,  porque  no 
entendáis  catalán,  poneros  en  contacto  con 
Ricardü 


Ricard  Sanahuja  Moliner 

c/  Confederació.  44 

Sant  Jordi-Cercs  (Barcelona) 


0 M=0  RUN 1 900 

1 £=8174  TI *="000000"  P0KE36879 - 8 

2 ñ=  I NT  < RNDC 1 > *242  > P0KE36878 >15  P0K 
E36876, 220 

3 Q=8  PR I NT " [ CLP ] " 

6 ..1=7975-1-1  B=7976-fU  C=7997~ñ  V=79 98- 
fl 

7 2=80 18-ñ  71=302  l-(=l 

10  POKEJ,  102  P0KED • 102  P0KEC.81  POf.E 
V, 81  PÜKEZ  , 78  P0KEX  , 77  P0KE36876 • 0 
1015  GETC* 

1020  IFCÍ=" , "1HENM=1 
1025  IFC*=" . "THEMM=2 
1030  IFCÍ=" f"THEH1700 
1035  G=0+ 1 IF0=15THEN2 
1040  G0T O2000 
1700  F0RF=1 T022 
1705  R=B-C22*F> 

1710  POKER .30 

1711  PÜKEZ, 99  PÜKEX, 99 

1716  I F R = • J 0R R = B T H E H 3 0 0 0 

1718  P0KE36878 , 1 5 P0KE36876 , 250-F  P0 
KEZ, 78  PÜKEX, 77 
1730  NEXTF 

1732  PÜKE36876 , 0 Ó0T02 


1 900  PR  I NT  " [ CLP  3 C 5CP3RB  ] C 6'.  RSRR  J C SP0  J 
**0BNI*«" 

1 90 1 PRINT "C 3CRSRD 3 [ C RSRR J MOV IMLNIC SPC J 
DRETñCSPC  V>'“ 

1 902  PR  1 NT " [ 2C  RSRD  3 MOV  I I-1EHT  C SPC  3E3QU 
ERRñCSPC] ' < " 

1 903  PR I NT " [ 3CRSRD 3 C SPC 3 PER í SPC JBloP 
HRHPC3PC3  V 

1904  FÚRT=1 T 06500  NEXT  G0TÜ1 
2000  IFM=2THENB=B+1  POKER- 1 , 32 
2005  IFM=1THENB=B-1  POKER  H,  32 

20 1 0 I FE  ¡y 1 65flNDM= 1 THENB=3 1 64 

2011  I FB>8 1 34ñNBM=2THENB=8185 
2020  F’OKEB  • 65 

2025  GOTO 10 15 

3000  POKEJ • 42 : PQKEZ> 42  P0KEV,42  P0I  L 
J + 1 , 42  P0KEC , 42  POKEX , 42 

300 1 FüRT= 1 TÚ 1 800  NEXT 

3002  POKEJ , 32 ■ POKEC , 32 • P0KEB , 32  PÜI  L 
V .■  32 

3003  FÜRT=1TO1000  NEXT 

3004  POKEJ-24, 42  |J0KEJ-19, 42  • P0K  LZ-K. 
1,42  POKEZ+26 .42  P0KE  J -22 , 42 

3005  P0KE36877 . 220  F 0 R L = 1 5 T 008 T E P - 1 
P0KE36878 , L 
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3306  FGRH=1  TO300 

300?  NEXTH  NEXTL  P0KE36877 > 0 P0KE368 

j020  PR I NT " [ 2CRSRD 3 £ SPC 3 PER t SPC 3 ' UKí l 

i o > 0 

hR  L SPC  3 A [ SPC  3 JUGAR £ 2CRSRR 3 £ 2CRSRD 3 P I 

3008  PR I NT " [ CLR J " POKEJ-40 , 42  PCI  L ' - 

TJfit SPC 3 LH [ SPC 3 TECLA t SPC 3 S " M-0 

47,42' POKEX+39, 42  PÜKEX+46, 43 

-:O30  i.ETFf 

30yy  r 0R r=n 02500  next 

:03i  IFF$="3" THEN1 

30 1 0 PR  I NT  “ [ CLR  3 [ WHT 3 L 3CPC.PD  3 1 CRSRR  3 

■-¡iijr'  nOTú3ft3ú 

HAS [ SPC J TP I GflT [ SPC 3 " T I í " [ SPC 3 SEGONI'S 

Mastermind 

Aquí  os  mando  estas  dos  colaboraciones. 

La  primera  es  el  popular  juego  “MASTERMIND”;  consiste 
en  adivinar  4 números  elegidos  por  el  ordenador 
al  azar  y adivinarlos  con  los  6 números  que  te  dá.  Tendrás  que 
batir  el  record  establecido  en  1500.  Este  record 
lo  tendrás  que  batir  en  3 jugadas. 

El  segundo  es  de  más  habilidad;  tendrás  que  llegar  de  una 
base  lunar  a otra  en  el  menor  tiempo  posible. 

En  el  transcurso  del  viaje  tendrás  que  esquivar  obstáculos  que 
aparecen  aleatoriamente  en  la  pantalla.  Cuando 
hayas  conseguido  llegar,  el  ordenador  te  dirá  cuánto 
combustible  has  gastado. 


LINEAS  XXXXXI-48 
Se  ponen  una  serie  de  variables 
numéricas  con  valor  inicial  igual  a 0.  Estas 
variables  son  las  que  utiliza  el  ordenador 
para  cargar  en  ellas  los  números  que  él  ha 
elegido  al  azar.  La  pantalla  se  cambia  en 
marco  y pantalla  a color  negro.  Se  verifica 
que  el  ordenador  no  elija  el  0,  porque  el 
valor  de  los  números  elegidos,  se  quiere 
que  sea  del  I al  6.  Se  explica  el  objetivo  del 
juego  en  la  pantalla. 

LINEAS  XXXXX48-9I 
Estas  lineas  sirven  para  meter  la  combi- 
nación de  números,  se  comprueba  que  si 
el  número  metido  es  cero,  en  tal  caso,  se 
produciría  un  bucle  cerrado  que  no  se 
desbloquearía  hasta  meter  un  número  dis- 
tinto de  0.  Se  controla  el  número  de  opor- 
tunidades para  hallar  la  combinación 
correcta.  Hay  un  mecanismo  con  la  print 
que  hace  que  las  sucesivas  combinaciones 
salgan  un  dibujo  de  otras  ordenadamente. 

LINEAS  XXXXX 100-220 
Se  comprueba  si  el  número  que  tú  metes 
es  igual  al  elegido  por  el  ordenador  (tanto 
en  valor  y en  posición).  Si  esto  ocurre  se 
suma  I a una  variable.  Si  por  ejemplo  esa 
variable  (g)  fuera  igual  a 3 entonces  apa- 
recerían en  la  pantalla,  al  lado,  de  la  com- 
binación de  números,  tres  tréboles,  que 
indicarían  que  hemos  acertado  tanto  en 
valor  como  en  posición.  A continuación 
se  comprueba  cuántos  números  hemos 
acertado  pero  sólo  en  valor  no  en  posi- 
ción. Si  la  condición  es  afirmativa  se  suma 
un  1 a una  variable.  Si  la  variable  (h)  ese 


igual  a tres  significaría  que  hemos  acer- 
tado tres  números  pero  sólo  su  valor  y no 
su  posición.  Por  lo  tanto  saldría  en  la  pan- 
talla. continuarión  de  la  combinación 
introducida  tres  rombos. 

LINEAS  XXXXX  1050-2000. 

La  linea  1050  controla  el  número  de 
jugadas,  cuando  estas  llegan  a tres  la  eje- 
cución del  programa  se  pasa  a la  línea 
3040.  Se  comprueba  en  qué  oportunidad 
se  acierta  la  combinación  a la  5."  oportu- 
nidad. entonces  se  le  suma  a la  variable  X 
200  puntos.  La  variable  X acumula  los 
puntos  obtenidos  durante  las  tres  jugadas, 
al  finalizar  estas  tres  jugadas  el  ordenador 
saca  por  pantalla  tu  puntuación  y el 
récord,  si  tu  puntuación  es  mayor  que  la 
del  récord,  entonces  el  jugador  deberá 
proponerse  un  récord  más  alto,  asi  hasta 
llegar  al  límite  que  sería  acertar  a la  l.‘  la 
combinación  en  las  3 jugadas.  Este  récord 
es  prácticamente  imposible. 


VIC-20 


LINEAS  XXXXX260-I030 
La  línea  260  no  sirve  absolutamente 
para  nada,  pero  queda  bonita  ahí.  Las 
lineas  1000-1030  son  las  encargadas  de 
visualizar  los  tréboles  según  los  números 
acertados. 

LINEAS  X X X X X200-3020 
Estas  líneas  sirven  para  visualizar  el  nu 
de  rombos  en  la  pantalla  según  el  número 
de  aciertos  de  los  números  en  valor  sola- 
mente. Algunas  poseen  música.  Mensaje 
de  muy  mal. 

LINEAS  XXXXX 3400-4030 
Comprueba  si  has  superado  el  récord. 
Imprime  récord  y puntuación  en  la  línea 
4030  indica  el  final. 

POSDATA 

La  emoción  no  está  en  hallar  la  combi- 
nación sino  en  superar  el  récord;  esto  le 
obliga  forzosamente  a no  cometer  ningún 
error  y hacer  siempre  la  jugada  más 
óptima. 


Programador: 

José  Vicente  López  Navarro 

Edad: 

18  tacos. 

Ordenador: 

VIC-20 

Dirección: 

Francisco  Pizarro  ns  41 

Ciudad: 

Albacete 

Hobby: 

Informática 

Teléfono: 

967-22  69  67 

Color  de  los  ojos: 

Azul 

Lenguaje  preferido: 

BASIC 

Comida  preferida: 

No  lo  sé. 

Espero  que  os  guste.  ¡Adiós! 
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V. 


“Viaje  Lunar” 


Lo  siento  pero  no  me  quedan  fuerzas 
para  seguir,  aqui  os  doy  un  breve 
resumen: 

Las  primeras  lineas  te  dan  las  explica- 
ciones de  juego,  las  siguientes  dibujan  el 


José  Vicente  López  Navarro 

paisaje  lunar,  las  otras  siguientes  contro- 
lan si  hay  choque  o no  de  la  nave  con  los 
obstáculos,  al  final  el  ordenador  te  dice 
los  petrolones  que  has  gastado  (este  es  el 
combustible  de  la  nave,  los  petrolones). 


1 P0KE36879, 8 V=0  R=1500  W=@ 

► 

100 

1001  NEXTT  POKE36875,0  G0T0148 

36  '.=0  D=0  N=0  H 1 =0  B1=0  C 1 =0  I'1=0 

1010  PRINT" C CRSRU 3 1 1 2CRSRR 3 C2SHIFTX3 

40  H=INT  ( RND  < 1 > *6  > + 1 B=1NT  • RND  < 1 • *6  • 

" P0KE36878 ,10  P0KE36875 , 23 1 

+ 1 C=INT <RND<  1 >*6)+l  D=INTcRND<  1 >*6> 

1011  F0RT=1T0 120: NEXTT  POKE36875,0  G 

+ 1 

OTO 148 

43  IFA=BORA=CORA=DORB=AORB=CORB=DUPC 

1 020  PR I NT " [ CRSRU 3C12C RSRR 3 1 3SH I F TX 3 

=DTHEN40 

" P0KE36875, 183 : F0RT=1T012Ó  NEXTT 

47  PRINT" [CLR] " PRINT" CWHT3 [4CRsRI'J J 

1 02 1 P0KE36875 , 0 GOTO 1 48 

1 IEOO  ACERTARE SPC  3 VALOR C SPC 3VESPC 3 PUS 

1 030  PR I NT " [ CRSRU 3 1 1 2CRSRR 3 1 4SH I FTX 3 

í C l OH  C SPC J DE  L SPC 1 4 1 SPC J NUMEROS " 

" FHRT= 1 T026  PR 1 NT " 1 6CRSRD 3 [ RVSON 3 MU 

48  PRINT" C3CRSRD INNUMEROS" 1 "-"6  PP1N 

VE2SPC3BIEN. . . CSPC3"  NEXTT 

T" [HHT 3 E2CRSRD3 [CRSRR3CONESPC3TRESCSPC 3 

1050  PEM  MUSICA  I FW=3THEN3040 

JUGADAS-SUPERAR-RECORD"  FORE= 1 T 07000 

1060  I FN= 1 THENX=X+ 1 000 

NEXTE 

1061  IFN=2THENX=X+500 

48  PR I NT " [ CLR 3 " PR I NT " [ RVSON 3 t 5CRSRR 3 

1062  I FN=3THENX=X+40Ü 

MñSTERM I NDERVSOFF 3 " PR 1 NT " 1 2CRSRD 3 [ CRSRR 3 

1 063  I FN=4THENV=V+300 

PUEDE 1 2SPC 3 EMPEZAR [ SPC 3 " W=W+ 1 

1 064  I F N= 5 T HENX=X+200 

50  GETA1  IFA1=0THEN50 

1065  IFN=6THENX=X+10O 

60  PRINT" CCRSRD3 "Al; 

1066  I FN=7THENX=X+50 

70  GETB1  IFB1=0THEN7G 

1067  IFN«8THENX=X+25 

71  PRINTBl; 

1068  W=W+1  I FW=3THEN4000 

72  GETC1  IFC1=0THEN72 

1069  N=0  G0T049 

73  PRINTCl; 

2000  P0KE36878, 10  P0KE36875 , 235  FORT 

74  GETD1 : IFD1=0THEN74 

= 1 TO 1 50  NEXTT  P0KE36875, 0 : GOTOSO 

75  PRINTDl; 

20 1 0 PR 1 NT " [ 1 6CRSPR 3 C CRSRU 3 1 SH IFTZ3 " 

80  N=N+1  IFIO8THEN3000 

GOTO50 

91  PR I NT " C 5CRSRL  3 " 

2020  PR I NT " [ 1 6CRSRR 3 C CRSRU 3 [2SH1FTZ3 

95  0=0 

" GOTOSO 

100  I Ffl=fl 1 THEN6=G+ 1 

2021  F0KE36878, 10  P0KE36875, 159  FORT 

110  I FB=B 1 THENG=G+ 1 

= 1 TO150  NEXTT  P0KE36875, 0 = OOTO50 

120  I F C=C 1 THEHG=G+ 1 

2030  PR I NT " [ 1 6CRSPP 3 1 CRSRU J13SHIFTZ3 

130  I FD=D 1 THENG=G+ 1 

" : GOTOSO 

141  IFG=1THEN1000 

2040  PR I NT " 1 1 6C RSRR J I CRSRU 3 L 4SH IFT23 

142  IFG=2THEN1010 

" GOTO50 

143  IFG=3THEN1020 

3000  P0KE36S78, 10  PCI  E 36875, 128  PRIN 

144  IFG=4THEN1030 

T " [ CLR  3 " FOR T= 1 T 0 1 5 F=0 

148  H=0 

3010  F0RV=1T0  25  PRINT" C7CRSRD3 ISCPSRRJ 

149  I Fft=Bl 0RR=C 1 0Rñ=D 1 THENH=H+ 1 

[ RVSON 3 MU V [ SPC 3 MAL . . ERVSOFF 3 " F0RH=1 

150  I FB=ñ 1 0RB=C 1 0RB=D 1 THENH=H+ 1 

TO30  NEXTH  NEXTV 

1 60  I FC=A 1 0RC=B 1 0RC=D 1 THENH=H+ 1 

3020  P0KE36878, 0 IFW=3THEN3040 

1 70  I FD=A 1 0RD=B 1 0RD=C 1 THENH=H+ 1 

3030  N=0  00 T 049 

200  I FH=0THEN2000 

3040  PRINT" [CLR 3"  IFX>RTHENR=X 

210  IFH=1THEN2010 

4000  I FX>PTHENPR I NT " NUEVO [ SPC 3 RECORD 

220  I FH=2THEN2020 

"X"CSPC3"PT0S.  " 

230  I FH=3THEN2030 

40 1 0[ SPC 3 PR I NT " üWKftWPUNTUAC ! 01 1 " X " P 

240  I FH=4THEN2040 

TOS" 

260  G0T055 

4020 1 SPC  3 PR  I NT " .«íUWjWPEC  ORD  " R " P 

1 000  PR I NT " C CRSRU 3 [ 12CRSRR3  CSHIFTX3 " 

TOS" 

PQKE36878, 10  : P0KE36875, 215 • F0RT*1T0 

► 

4030 [ SPC  3 F0RB= 1 TO30OO  NEXTB  END 

1 0 PR 1 NT " [ CLR 3 " P0KE36879 • 9 

► 

30  PR I NT " t CRSRU 3 1 CRSRR  3 DI R I GE [ SPC 3 LA 

20  PR I N r " E 2CRSRD 3 [ 2CRSRR 3 1 WHT 3 #V I AJE 

[ spr  ] NAVE  [ SPC  3 CON  L SPC  3 LAS  L SPC  3 TE'-L  AS 

CSPC3 LUNAR*" 

► 

G< *■>  ■ H< ABAJO) , J < DERECHA > . " ; 
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35  PR I NT " t <0 L SPC J TE [ SPC J ENTRETENGAS t SPC 3 
V [ SPC ] PROCURO C SPC J NÚ [ SPC 3 C HOGAR [ SPC 3 
CON C SPC 3 SUS [ SPC 3 1 1 NOS C SPC  3 V [ SPC 3 ROVO 
SCSPC 3L0SERS" 

40  PR  I NT  " [ 3CRSRD  3 [ C F'SRR  3 1 SPC  3 MUC  HO  C SPC  3 
SUE  RTE  t SPC  3 OM I GO " 

42  PR I NT " C CRSRR  3 C SPC  3 

50  FOR  T= 1 T 06000  NEXTT  PRIHT"tCLR3" 

60  FORTUITO 130 

70  POKE7630+ 1 NT (. RND ■ 1 • *506 >,46 
3@  NEXTT 
90  FORT* 1T0 150 

1O0  P0KE7686+INT «.PHD1  1 >*506  >,102 
110  NEXTT 

130  P0KE7724, 76  P0KE7725, 100  P0KE772 

6. 100  P0KE7727 ■ 100  P0KE7728 . 100  POPE 

7729. 100 

131  POP  E 7 702,  78'  POKE7703,99  POKE7704 
.77  = POK E 7 705 , 1 00  PÚPE7706 . 1 00  POPE  77 
29,77 

1 32  POP  ES  1 30 , 78 : POP  ES 159,111  P0KE8 1 6 
0,111  POP  ESI  61 , 78  POPES 140. 1 1 1 POPES 
141,78 

133  X=3  V=0 

1 34  POKE  < 768@+X+22#V > , 86 

135  POPE 36878 . 15 

136  FORL=130TO254 

137  P0KE36876, L 

138  FQRM=1TO40 

139  NEXTL 

141  P0KE36878 • 0 

142  P0KE36876, 0 

150  POKE ( 7680+X+22#V  > , 32 

1 5 1 POKE ( 7680+X+22#V > , 86 

180  GETAí 

181  W=W+1 

190  I Fft$= "O" THENX=X- 1 P0KE36876, 143 
FORT=1TO50  NEXTT  POKE36876.0 
200  I FAJ* " H " THENV=V+ 1 P0KE368 76,143= 
FORT* 1 TO 1 00  NEXTT  P0KE36876 , 0 
210  I FAí = " J " THENX*X+ 1 P0KE36876 .183= 
FORT* 1 TO 1 00 : NEXTT  P0KE36876 , 0 
220  I FPEEK  < 7680+X+22*V > = 1 02THEN5000 
I FPEEK  < 7680+X+22#V > =42THEN5000 
IFPEEK<7630+X+22*V)=1 1 1 THEN7000 
I FPEEK  C 7 680+X+22*V > =76THEN5000 
I FPEEK  < 76 30+X+22*V > *78THEN5000 
I FPEEK  < 7680+X+22*V > = 1 00THEN5000 
I FPEEK ( 7680+X+22*V >*77THEN5000 
POKE  < 7680+X+22#V  > , 86 
I Ffit= " J " THENPOKE < 7680+  < X- 1 > +22#V 


230 
240 
250 
260 

270 

271 
290 
300 
>,32 

310  I F8í= " H " THENPOKE  < 

>,32 


7680+X+22* > V— 1 


320  I Fflf = " G “ THENPOKE  < 7680+  < X+ 1 >+22*V 
> , 32 

330  I FPEEK (7680+CX-l  +22*V>=46THENP0 
KE  < 7680+ C X- 1 > +22#V > , 46 
340  I FPEEK < 7680+X+22* ( V-l > > *46THEHPi i 
KE  < 7680+X+22* < V- 1 > > , 46 
350  X 1 = I NT< RND < 1 > #22+ 1 > V1=INT ( RND' 1 
>*22+1 > 

360  FORO* 1 T 020  POPE» 7680+X 1+22* VI > . 

42  NEXTG 

36 1 POKE < 7680+X 1 +22* V 1 > , 42 
POKE' 7680+X 1+22*' VI >,42 
POKE ' 7680+X 1 +22#V 1 > , 42 
POKE ( 7680+X 1 +22* V 1 > , 42 
P0KE36878, 15  P0KE36876, 131  FORO* 

1 TO40  NEXTO 
390  P0P.E36876, 0 
500  OOTO 180 
5O00  P0KE36877 , 220 

F ORL* 1 5T  O0STEP- 1 
POPE 36878. L 
FORM* 1 T 0900 
NEXTM 
NEXTL 

POKE36877.0 
POP-E 36378, 0 
FQRT=1 TO60  NEXTT 

PF'INT" CtLRl " PRINT"t  1 1CRSRDJ C6CRSRR] 
[ RVSON  ] GANE  [ SPC  1 OVE  R t RVS01 H " F ÜRT  - 1 r 
O2O0O  NEXTT  RIJN 
7000  POKE 36878, 15 
F0PL=1 TO20 

FORM=220-LT  0 1 60-LS TEP-4 
POPE 36876, M 


362 

363 

364 
38© 


5001 

5C03 

5004 

5006 

5008 

5009 
6000 
6010 
6011 


7001 

7003 

7004 
7010 
7020 
7030 
7O40 
7050 
7060 
7070 
7 1 0O 
7200 


NEXTM 

FORM* 1 60- L TO220  LSTEP4 
POKE 36876, M 
NEXTM 
NEXTL 

POPE 36378, 0 
POPE 36376,0 
PRINT"tCLRT " 

PRINT " C3CPSRD] t 
ENHORABUENA [ RVSOFF J " 

XTT 

3000  PRINT  " C RVSON  J GAS TftSTE  L ' R‘  !•  '>  J "!■!" 
PETR ÍLONESC RVSOFF J " 

3010  FORT*  1 TO3OO0  NLXH  PRINT" L.RÍ" 
C,RINT"[  RVSON]'*' TRO!  SP'  1 TI  IFr,n[  • .<  •(  j. 

N ■ ?t RVSOFF: " 

3020  INPUT" " 0t 
3030  IFñf  IHENPUN 
804 O lFRt="N"T HENS r0P 
:OS0  I F H J - " " THE Nftll  I O 


:CRSPR  ] f 4SPC  J [ RVSON  J 
K ORT=! TO 1 000  NI 


nicroSistemas 


Relación  de  Tiendas  en  Madrid 
donde  se  Vende  ya  MicroSistemas 

COMPU-SHOP Infanta  Mercedes,  89 

COMPUSTORE Doce  de  Octubre,  32 

COMPUSTORE Sor  Angela  de  la  Cruz,  28 

COSESA Barquillo,  2S 

DIDISA Pintor  Rosales,  26 

ELECTRONICA  SANDOVAL  ....  Sandoval,  3,  4,  6 

MICROTEC Duque  de  Sesto,  30 

PEÑA,  Liberia Cavanilles,  52 

SINCLAIR  STORE Bravo  Murillo,  2 

VIDEO  MUSICA Orense,  28 
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Cuando  se  tiene  64  K de  memoria, 
una  magnífica  resolución,  16  colores, 
efectos  tridimensionales  con  sprites, 
un  sonido  equivalente  al  de  un 
sintetizador,  un  teclado  profesional 
con  62  caracteres  gráficos,  toda  una 
amplia  gama  de  periféricos,  la  más 
completa  gama  de  programas 
educativos,  profesionales  y de  video- 


juegos...; en  resumen,  cuando  se  es 
un  ordenador  personal  como  no  existe 
ningún  otro  en  el  mercado  y el  más 
vendido  mundialmente,  es  muy  difícil 
decir  sin  orgullo  que  eres  un 
Commodore-64. 

Claro  que  más  difícil  todavía  es  decir 
sin  orgullo  que  tienes  un  Commodore-64. 
¿Por  qué  no  lo  comprueba? 


COMMODORE  64 

LE  DA  ACCESO  A MUCHOS 

ACCESORIOS 


Unidad  simple  de  disco  (Monofloppy)  170  K. 
Cassette. 

Plotter  e impresora.  4 colores, 

14  c.p.s. 

Impresora  matricial,  tractor. 

30  c.p.s. 

Interface  RS232. 

\ Joy  Stick. 

\ Paddle. 

V Cursos  de  Introduc- 
ción al  BASIC. 


COMMODORE  64 
LE  MUESTRA  PARTE  DE 
SUS  PROGRAMAS 


Utilitarios  y lenguajes 

MONITOR  LENGUAJE  MACRO  ASSEMBLER. 


MAQUINA. 

FORTH. 

LOGO. 

PILOT. 


PROGRAMMER'S 

UTILITIES. 

TURTLE  GRAPHICS  II. 
MASTER. 


CALC  RESULT. 

Hoja  electrónica  de  cálculo. 

EASY  CALC  RESULT. 

Versión  simplificada  del  CALC  RESULT. 

MAGIC  DESK. 

Proceso  de  texto  y gestión  de  ficheros. 
AGENDA  TELEFONICA. 


Programas  educativos 


MUSIC  MACHINE. 
MUSIC  COMPOSER. 

VISIBLE  SOLAR 
SYSTEM. 

SPEED/BINGO  MATH. 
FISICA  I. 
MATEMATICAS  I. 
HISTORIA  I. 

Juegos 

JUPITER  LANDER. 
KICKMAN. 

SEAWOLF. 

RADAR  RAT  RACE. 
TOOTH  INVADERS. 
LAZARIAN. 

OMEGA  RACE. 

LE  MANS. 

PINBALL 

SPECTACULAR. 

AVENGER. 

SUPERMASH. 


GEOGRAFIA  I. 
GEOGRAFIA  II. 
JUEGOS  EDUCATIVOS 
TEMAS 

MONOGRAFICOS. 

CONOCIMIENTOS 

GENERALES. 

QUIMICA  I. 


FROGMASTER. 

GRID  RUNNER. 
ATTACK 

OF  THE  MUTANT 
CAMELS. 

THE  PIT. 

MR.  TNT. 

6 GAME  PROGRAMS. 
BINGO. 

ROOTING  TOOTING. 

MINESSOTA  FAT'S 
POOL  CHALLENGE. 


...  y seguimos  ampliando  la  lista 


El  ordenador  personal  de  la 
familia  más  potente 


Sistemas  operativos 

FILE/BOSS.  CP/M. 

Programas  de  aplicaciones 

EASY  SCRIPT. 

Proceso  de  texto  de  gran  potencia. 


commodore 

COMPUTER 

MICROELECTRONICA  Y CONTROL,  S.A. 
d.  Taquígrafo  Serra,  7,  5.°.  Barcelona-29 
c./  Princesa.  47,  3.°  G.  Madrid-8 


Siglos  XX  y XXI 


PARA  VIC-20 
SIN  AMPLIACION 


Ernesto  Sánchez,  publicó  un  artículo  en  el  número  de 
febrero  de  esta  revista  sobre  el  uso  del  Port  del  Usuario, 
ahora  nos  manda  un  programa  para  obtener  un  calendario 
de  cualquier  mes  de  los  siglos  XX  y XXI 


ANOS  (a) 


TABLA  I 


00  <d> 

01 

02 

03 

04 

05 

06 

07 

08 

09 

10 

11 

rio 

12 

13 

14 

15 

16 

Moret 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

I 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

CIFRA 

45 

46 

47 

48 

49 

50 

EXPRESA 

:nas 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

6 

0 

1 

2 

3 

4 

5 

5 

6 

0 

1 

2 

3 

■ 

4 

4 

5 

6 

0 

1 

2 

3 

3 

4 

5 

6 

0 

1 

2 

19 

2 

3 

4 

5 

6 

0 

1 

20 

1 

2 

3 

4 

5 

6 

0 

0 

1 

2 

3 

4 

5 

6 

TABLA  II 


II 

mayo 

MESES  (d) 

»g.  febr. 
febr.  marzo  junio 
B no». 

SCI. 

dic. 

abril 

julio 

enero 

B 

enero 

oct. 

III 

1 

8 

15 

22 

29 

DIAS  DEL  MES  (e) 
2 3 4 5 

9 10  II  12 

16  17  18  19 

23  24  25  26 

30  31 

6 

13 

20 

27 

7 

14 

21 

28' 

1 

2 

3 

4 

5 

6 

0 

■ 

1 

D 

L 

m 

M 

j 

V 

S 

2 

3 

4 

5 

6 

0 

1 

2 

2 

L 

m 

M 

J 

V 

s 

D 

3 

4 

5 

6 

0 

1 

2 

3 

3 

m 

M 

J 

V 

s 

D 

1. 

4 

5 

6 

0 

1 

2 

3 

4 

4 

M 

J 

V 

S 

D 

L 

m 

5 

6 

0 

I 

2 

3 

4 

5 

5 

J 

V 

S 

D 

L 

m 

M 

6 

0 

1 

2 

3 

4 

5 

6 

6 

V 

S 

D 

L 

m 

M 

J 

0 

1 

2 

3 

4 

5 

6 

0 

0 

S 

D 

L 

m 

M 

J 

V 

Io.  Buscar  en  el  cuadro  I el  número 
situado  en  la  intersección  de  la  línea 
que  contiene  las  cifras  del  siglo  y 
columna  que  contiene  las  del  año; 

2".  Tomar,  en  la  columna  exterior  del 
cuadro  II.  el  número  asi  encontrado,  y 
buscar  el  que  se  encuentra  en  la  inter- 
sección de  esta  linea  y la  columna  del 
mes.  En  los  años  bisiestos,  lomar  los 
meses  de  enero  y febrero  marcados  con 
la  letra  B: 

3°.  Volver  a tomar  en  la  columna  exte- 
rior del  cuadro  III.  el  nuevo  número  asi 
encontrado.  En  la  intersección  de  esta 
linea  y la  columna  de  los  dias  del  mes 
se  encuentra  el  día  buscado.  Ejemplo: 
¿Qué  día  tuvo  lugar  la  batalla  de 
Wagram  (6  de  julio  de  1809)? 

Cuadro  I:  linea  18:  columna  09:  cifra 
encontrada  I.  Cuadro  II:  linea  I: 
columna,  julio:  cifra  encontrada  0. 
Cuadro  lil:  línea  0:  columna  6:  dia 
buscado.  JUEVES. 

Este  calendario  se  presta  a búsquedas 
inversas:  buscar  los  viernes  13.  los  I ° 
de  enero  que  caen  en  un  dia  determi- 
nado. etc. 

SIGNOS  Y ABREVIATURAS:  (a)  los 
siglos  gregorianos  y los  años  bisiestos 
están  escritos  en  cursiva:  (b)  Hasta  el  4 
de  octubre  de  1382  inclusive;  fe/  Desde 
el  13  de  octubre  de  1382  en  adelante; 
las  fechas  del  3 al  1 1 de  octubre  de 
1382  no  están  especificadas  en  el 
calendario  gregoriano;  Id/  Eos  años 
seculares,  siempre  bisiestos  en  el 
calendario  juliano,  no  lo  son  en  el 
calendario  gregoriano  más  que  cuando 
sean  divisibles  por  100:  fe)  Abreviatu- 
ras; m.  martes:  M.  miércoles. 
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El  programa  "SIGLOS  XX  y XXI"  pre- 
senta por  pantalla  en  formato  calen- 
dario. un  mes  cualquiera  del  año  que 
se  desee. 

Para  ello  el  programa  está  basado  en  las 
tablas  de  Moret  de  cálculo  de  fechas  per- 
petuas (ver  figura  1).  Con  estas  tablas  (que 
están  simplificadas  para  los  siglos  20  y 21) 
se  puede  calcular  qué  día  de  la  semana  es 
cualquier  fecha  que  nosotros  queramos. 
Realmente  en  el  programa  lo  único  que  se 
necesita  es  calcular  que  día  de  la  semana 
es  el  primer  dia  del  mes  que  escojamos. 

De  la  primera  tabla  extraemos  un  dato 
NI.  con  el  cual  en  la  segunda  tabla  obte- 
nemos otro  número  N2  y entonces  ya 
podemos  determinar  el  primer  dia  del 
mes. 

La  estructura  del  programa  es  la 
siguiente... 

Linca  2-3:  subrutina  de  sonido.  Linea 
4-9:  Datos  para  calcular  el  primer  número 
de  la  Tabla  I.  Linea  10-40:  Presentación. 
Línea  50-90:  Cargar  en  una  matriz  de  dos 
dimensiones  los  datos  para  el  cálculo  de 


NI.  Línea  100-310:  Solicitud  de  fecha  y 
tratamiento  de  la  misma.  Línea  320-380: 
Obtención  del  primer  número  NI.  Línea 
400-410:  Obtención  del  segundo  número 
N2.  Linea  420-530:  Dibujo  del  calendario. 
Línea  540-550:  Solicitud  de  nueva  fecha. 

Variables  del  programa 

X.  Y:  Variables  de  bucles  FOR.  para  la 
matriz  de  datos  de  NI 
Y%:  Año  solicitado. 

YE%:  Variable  de  año  simplificada. 

C:  Variable  dependiente  del  siglo  20  ó 21. 
MIS:  Nombre  del  mes. 

M$:  Abreviatura  de  MIS 
M:  Variable  numérica  dependiente  del 
mes. 

NI:  Primer  número  de  la  Tabla  I 
N2:  Número  de  la  Tabla  II 
T:  Variable  de  tabulación  para  el  dibujo 
del  calendario. 

D:  Variable  numérica  del  dia  del  mes  para 
el  dibujo. 

DS:  Variable  de  string  del  día  del  mes  para 
el  dibujo. 


Al  cuál  responderemos  con  las  cuatro 
cifras,  por  ejemplo: 

AÑO  COMPLETO  ? 1984  (RETURN) 

A continuación  se  pide  el  nombre  del 
mes.  por  ejempleo: 

MES  (NOMBRE)  ? ENERO  (RETURN) 
En  este  punto  esperamos  breves  instan- 
tes y aparecerá  ante  nosotros  el  la  panta- 
lla en  mes  de  ENERO  del  año  1984.  Hay 
que  destacar  que  los  domingos  aparecen 
señalados  en  rojo.  Luego  el  programa 
solicita  una  nueva  fecha. 

Y eso  es  todo,  espero  que  paséis  un 
buen  rato  recordando  vuestras  mejores 
fechas. 

Si  me  devolvéis  la  cinta  con  algo  gra- 
bado me  gustaría  que  fuera  de  alguna  uti- 
lidad. Gracias. 


Ernesto  Sánchez  Gutiérrez’ 
C./  Mayor.  1 1 
Alcadozo  - Albacete 


PROGRAMA:  SIGLOS  20  V 21 

1 GOTO  10 

2 PÜKE36375 , 240 :F0PK=0TÜ99 : NEXT : 
P ÜKE 36875 , O 

3 RETURN 

4 DATA04 . 05 . 00 ,01.02, 03 , 1 00 . 1 O , 1 
1,06.07,1 OO , 08 .09,100,16.1 00 ,12, 
13.14,15 

5 DATA21 ,22, 17,18,19,100,20.27, 1 
O0 , 23 , 1 OO , 24 , 25 , 26 , 32 , 33 , 28 , 29 , 3 
0,31,100 

6 DATA38 , 39 , 34 . 35 , 1 00 ,36,37,1 00 , 
44,100,40,41, 42 , 43 . 49 , 50,45,46.4 
7,100,48 

7 DAT A55 . 1 OO ,51,1 OO , 52 , 53 , 54 , 60 , 
61,56,57, 53 ,59,1 OO . 66 , 67 , 62 , 63 , 1 
00,64,65 

8 PATA1 O0.72, 100. 68, 69, 70. 71 .77, 
73 ,73,74,75,1 OO , 76 .83.1 OO .79.1 00 
,80,81 ,82 

9 DAT A88 , 89 , 84 , 85 , 86 , 87 , 1 00 , 94 , 9 
5 . 90 , 91 .1 OO , 92 , 93 , 1 OO . 1 00 , 1 OO . 96 
,97,98,99 

1 0 F’OKE  36878 ,15:  PEM  PRESENTAD  I ÜN 

20  PR I NT " C 1 CLP 3 C 1 PVSON 3 C 4SPC 3 S I G 
LOS C 1 SPC 3 20  C 1 SPC 3 V C 1 SPC 3 2 1 1 4SPC 3 
[ 1 RVSOF 3 " 

30  PR I NT " í 4C RSRD 3 EL  1 1 SPC 3 PROGPAM 
H [ 1 SPC 3LEC 1 SPC 3 VAL  1 SPC 3 A" :PRINT" 
[ 1 CRSPD 3 PRESENTAR C 1 SPC 3ELC1 SPC  3 C 
ALENDA" 

40  PR I NT " [ 1 CPSRD 3 P 1 0 C 1 SPC 3 DEL  C 1 S 
PC  3 MES C 1 SPC  3 V C 1 SPC 3 A C 1 PVSON  3 N C 1 P 
VSÜF 3 0 " : PR I NT " C 1 CRSPD 3 DE  C 1 SPC 3 LO 


S C 1 SPC  3 S I GLOS C 1 SPC  3 20  C 1 SPC  3 V C 1 SP 
C 32 1" :PP I NT " C 1 CRSPD  3 QUE [ 1 SPC 3 UD . 
C 1 SPC 3 ELI  JA" 

50  D I MAX < 6 , 1 7 > : PEM  CARGA  DE  DATO 
S PAPA  EL  1 NUMERO 
60  FORV=0TO17 
70  F0PX=0T06 
80  READAXCX, V> 

90  NEXTX, V 

1 OO  GOSUB2 : PR I NT " L 1 CRSPD  3 A C 1 P VSQ 
N 3NC 1 RVSOF  3 O C 1 SPC  3 COMPLETO " : 8=0 : 
REM  PETICION  DE  FECHA 
1 1 0 PQKE 1 98 ,0:1  NPUTVJÍ  : YEX=VX 
115  I FYEJÍ<  1 9000PVEX>2099THEN  1 1 0 
1 20  VEX= VEX-2000 : C =2 
1 30  I FSGN  < VE!;  > =- 1 THENC  = 1 : VEZ*  1 OO 
+VEX 

1 40  I F VE/:=  1 0OTHENYEJÍ-00 
1 50  PR I NT" C l CRSPD 3 MES C 1 SPC 3 < NOMB 
PE  > " 

1 60  POKE 1 98 . O : INPUTM 1 f 
1 70  ifve;;/4=i  nt  < ve:;/4  > thenb=  i 

1 80  Mf =LEFTf • M 1 f , 3 > 

1 90  I FMf = "ENE " OPMf = " OCT " THENM=0 
200  I FMf = " FEE. " OPMf = " MAR " ORMf =" NO 
V" THENM=3 

210  I FMf = " ABP "OPMf  = " JIJL " THENM=6 

220  I F Mf = " MAV " THENM= 1 

230  I FMf = " JUN " THENM-4 

240  I FMf = " AGO " THENM=2 

250  I FMf = "SEP " OPMf = " SET " OPMf = " D I 

C"THENM=5 

260  I FMf = “ ENE " ANDB= 1 THENM=6 
270  I FMf = " FEB " ANDB= 1 FHENf1=2 
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Programa  siglo  XX  y XXI  (Continuación) 

280  I FMf = " ENE " ORMf= " MAR " ORMf = " Mft 
V " ORMf= " JUL " ORMf = " AGO " ORMf =" OCT " 
ORMf = " D I C " THENMES=3 1 
280  I FMf = " ABP " ORMf=" JUN " ORMf = " SE 
p " ORMf = " SET " ORMf = " HOV " THENMES=30 

300  I FMf = " FEB " THENMES=28 
3 10  I FMf = " FEB " ANDB= 1 THENMES=29 
315  REM  OBTENCION  DE  NI 
320  FOPV=0TO17 
330  FORX=0TO6 

340  I FAX  X , V > =VEXANDC=  1 THENN 1 =X  : 
GOTO400 

350  I FAX  < X V > =VEXANDC=2THENN  1 =X- 
1 .-GOTO370 
360  NEXTX, V 

370  I FX=0THENN 1 =6 : GOTO40O 
380  I FXO0THEN400 
390  P0KE36873 ,0  :STOF' 

400  N2=N 1 +M :REM  OBTENCION  DE  N2 

410  I FN2>=7THENN2=N2-7 

420  REM  DIBUJO  DEL  CALENDARIO 


430  PR I NT " C 1 CLR  3 C 3CRSRR J A C I RVSOf \ 
3 N C 1 R VSOF  3 O " , " MES " 

440  PR I NT " C 1 CRSRD 3 C 1 CRSRR ] " VX , M 1 
f 

450  PR I NT " [ 2CRSRD I L 2CRSRR I I l RED 3 
D C 1 BLK 3 í 2CRSRR  3 L C 2CRSRR  3 M i 2',  PSRR 
3 X C 2CRSRR  3 J 1 2CRSRR  3 V C 2CRSRR 1SC 1 
PC  3“ 

460  T=N2*3-2:IFN2=0THENT=19 
470  FORD= 1 TOMES : PR I NT " C 1 BLK 3 C 1 CR 
SRU  3 “ 

480  Df =R  I GHTf  •:  STPf  < D > , 2 > 

490  I F T= 1 THENPR I NT "El  RED  3 " 

500  PRINTTAB1  T >Df  .*  :G0SUB2 
510  T =T +3 

520  I FT>2 1 THENT  = 1 : PR I NT " [ 1 C RSRD 3 

" : 

530  NEXTD 

540  PR I NT : PR I NT " [ 1 BLU 3 S I GU I ENTE I 
1SPC3FECHAC 1CRSRU3 " 

550  GOTO 100 


GLOSARIO 


Arrav: 

Una  colección  organizada  de  datos,  los  cuales  son 
todos  del  mismo  tipo.  Por  ejemplo,  una  lista  que 
consiste  en  el  número  de  centímetros  de  lluvia  que 
lia  habido  en  30  dias  sucesivos  seria  un  array. 

A menudo  es  más  rápido  hacer  al  ordenador  proce- 
sar datos  en  forma  de  arravs  en  ve/  de  tener  al 
ordenador  manteniendo  cada  dato  como  elemento 
separado. 

Carácter: 

En  el  proceso  de  datos,  comunicaciones  de  datos  y 
almacenamiento  de  información:  es  cualquier  dise- 
ño de  un  código  que  representa  una  letra,  signo  de 
puntuación,  código  de  control  o cualquier  otra  uni- 
dad de  información  similar  En  estas  aplicaciones  al 
término  “carácter"  se  utiliza  también  para  valores 
no  imprimibles  (tales  como  los  espacios). 

Cartucho: 

En  su  aplicación  a un  cinta  magnética  es  una  uni- 
dad con  varios  cientos  de  pies  de  cinta  (conocido 
también  por  el  nombre  de  cartucho  de  datos)  con 
un  tamaño  parecido  al  de  un  libro  de  novelas.  Usa- 
dos con  la  unidad  adecuada  pueden  almacenar 
varios  mcgabytes. 

Chip: 

El  trozo  de  material  semiconductor  en  el  que  se 
hacen  circuitos  integrados.  Dicho  de  manera  co- 
loquial, un  circuito  integrado  que  está  empaque- 
tado. 


£ 


Floppy  Disks: 

Es  un  disco  magnético  en  el  cual  se  guardan  pro- 
gramas y datos  Los  floppy  disks  se  introducen  en 
una  unidad  de  discos  para  su  uso.  Su  apariencia  es 
la  de  un  disco  de  45  rpm.  que  ha  sido  dejado  encima 
de  un  radiador. 

Hardware: 

Son  los  elementos  visibles,  l as  partes  del  ordena- 
dor que  se  pueden  tocar,  el  teclado,  la  pantalla,  los 
módems.  Almacenar  información  (o  retirarla)  en  el 
ordenador  se  hace  a través  del  hardware. 

Interface: 

Un  aparato  que  permite  conectar  al  ordenador 
otros  aparatos  como  impresoras  u otros  ordenadores. 


Menú: 

Una  lista  de  opciones  que  aparece  en  la  pantalla  del 
ordenador,  describiendo  cuáles  teclas  se  han  de  pul- 
sar para  ejecutar  ciertas  funciones  de  un  programa. 

Modem: 

Es  un  periférico.  Consiste  en  una  pieza  de  hardware 
la  cual  se  conecta  a un  teléfono  convencional 
logrando  que  dos  ordenadores  compatibles  puedan 
intercambiarse  información  entre  si. 

Salida: 

Una  conexión  al  mundo  exterior  de  un  aparato  que 
puede  ser  utilizado  por  los  programas  o el  ordena- 
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LE  DESCUBRIMOS  NUESTRO  JUEGO 


PARA  SU 


CONTABILIDAD:  300  cuentas,  3.000  apuntes,  un  programa  profesional. 

PRACTICALO:  hoja  de  cálculo  multifuncional , 2.000  coordenadas. 

GESTION  STOCK:  1.000  artículos,  1.400  movimientos,  completo  control  de  su  almacén. 

SUPERBASE:  potente  base  de  datos,  la  mejor  herramienta. 

ULTRABASIC:  generador  de  gráficos  y sonidos  sin  POKES  ni  PEEKS. 

PROCESO  DE  TEXTOS:  calidad  en  sus  escritos. 

MAILING:  fichero  para  confección  de  etiquetas. 

VIC-TREE:  trabaje  con  el  BASIC  4.0  de  C0MM0D0RE. 

FILE-BOSS:  el  mejor  auxiliar  para  trabajar  con  ficheros  relativos. 

LAPIZ  OPTICO:  dibujar  directamente  sobre  su  televisor  (con  software) 

JOYSTICK:  palanca  de  juegos  para  competición,  gran  sensibilidad. 

MONITORES:  fosforo  verde  con  y sin  sonido. 

MATERIAL  MAGNETICO:  cintas  y diskettes,  alta  calidad. 

JUEGOS:  en  disco,  cinta  y cartucho,  ultimas  novedades  nacionales  y extranjeras. 


pídanos  información,  recibirá  un  PROGRAMA  VE  REGALO  y 
nuestro  extenso  catálogo. 


X AIIOIM...  UN  NUEVO  SERVICIO!! 


sabemos  que  jugar  siempre  a lo  mismo  es  muy  aburrido ... 
sabemos  que  comprar  muchos  juegos  sale  caro... 
sabemos  que...  por  todo  ello,  hemos  creado... 


CLUB  TRON  DE  VIDEOJUECOS 


para  COMMODORE  - 64 


intercambio  - alquiler  de  cintas,  discos  y cartuchos. 

LOS  MEJORES  PROGRAMAS,  LAS  ULTIMAS  NOVEDADES 
DEL  MERCADO  NACIONAL  Y EXTRANJERO. 


¡ PIRA  INFORMACION  I 

■ 


EAF  mierosestien 


consejo  de  ciento,  563-565 
telefono  93-231  95  87 


barcelona-13 
apdo.  24.143 


Misterio 
los  Pokes 


El 

de 

Por  Diego  Romero 


Esle  mes  nos  vamos  a fijar  en  las  direc- 
ciones 0 y I del  C-64.  pero  como  son 
bastante  complicadas  nos  limitaremos  a lo 
posible  dentro  del  espacio  de  que  dispo- 
nemos. 

Las  funciones  de  estas  direcciones  no 
coinciden  con  las  del  VIC-20  como  ya 
hemos  visto  en  el  número  anterior,  y son 
propias  de  la  CPU  6510  utilizada  por  el 
C-64. 

Como  ya  sabréis,  el  C-64  dispone  de  64 
K de  RAM.  20  K de  ROM.  y 4 K de  direc- 
ciones reservadas  para  entradas/salidas 
(F./S),  La  CPU  solamente  tiene  16  lincas 
en  el  bus  de  direcciones  y con  ellas  sólo 
puede  acceder  a 64  K de  memoria,  para 
tener  acceso  a toda  su  memoria  el  C-64 
utiliza  un  controlador  de  memoria 
("address  manager")  que  le  permite  direc- 
cionar  el  total  de  los  88  K.  Podéis  pro- 
gramar este  controlador  de  memoria 
cambiando  los  contenidos  de  las  direccio- 
nes 0 y I para  obtener  las  diferentes  confi- 
guraciones de  RAM.  ROM  y E/S  posibles 
en  el  C-64. 

Estas  direcciones  se  comportan  real- 
mente como  un  port  de  Entrada/Salida 
programablc.  siendo  la  I el  registro  de 
E/S  de  dalos  (D.R.  Data  Rcgistcr).  y la  0 
el  registro  de  control  de  dirección  de  datos 
(C.R.=Control  Rcgistcr).  Si  un  bit  del 
registro  de  control  contiene  un  I.  el  bit 
correspondiente  del  registro  de  datos  se 
comportará  como  una  salida,  y si  el  bit  del 
C.R.  es  0.  el  del  D.R.  será  una  entrada, 
por  eso  es  necesario  comprobar  con 
PEEK  los  registros  antes  de  alterar  su 


contenido  con  POKE  para  alterar  sola- 
mente los  bit  necesarios. 

Además  del  controlador  de  direcciones, 
este  port  controla  el  DATASSETTE.  Las 


funciones  y nombres  de  cada  bit  de  este 
port  de  E/S  son  los  siguientes: 

El  valor  usual  del  C.R.  será  47  en  deci- 
mal (9£ 101 III).  pero  cambiará  si  conec- 
táis algún  cartucho. 

Como  ejemplo  del  modo  de  utilizar  este 
port.  aqui  tenéis  el  modo  de  desconectar  el 
intérprete  BASIC': 

POKE  0.  PEEK  (01AND254 
...pero  perderéis  el  control,  ya  que  si  des- 
conectáis el  basic.  no  podéis  seguir  traba- 
jando con  él... 

Todo  esto  puede  ser  muy  útil,  pero  debe 
utilizarse  con  mucho  cuidado  para  no 


perder  los  programas  y casi  siempre  desde 
un  programa  en  código  máquina. 

Existen  otras  dos  lineas  conectadas  al 
controlador  de  memoria,  se  llaman  EX- 


ROM y GAML.  y sirven  para  que  el  con- 
trolador sepa  cuándo  tiene  conectado  un 
cartucho  ROM  en  el  conector  de  expan- 
sión. 

Asi  pues,  en  función  del  contenido  de  la 
dirección  I (el  D.R.)  y de  las  lineas 
EXROM  y CÍAME,  podemos  obtener  las 
configuraciones  de  memoria  en  nuestro  C- 
64  que  aparecen  en  las  tablas. 

La  posición  de  memoria  2 no  se  utiliza 
en  el  C-64.  Con  esto  espero  que  quede 
aclarada  la  función  de  los  POKEs  a las 
tres  direcciones  del  C-64.  En  el  próximo 
número  más  "Misteriosos  Pokes”... 


BIT 

NOMBRE 

DIRECCION 

FUNCION 

0 

LORAM 

SALIDA 

0 Selecciona  RAM  en  $AOOO-$BFFF 

1 Selecciona  ROM  en  $AOOO-$BFFF  (BASIC) 

1 

HIRAM 

SALIDA 

0 Selecciona  RAM  en  $EOOO-$FFFF 

1 Selecciona  ROM  en  $EOOO-$FFFF  (KERNAL) 

2 

CHAREN 

SALIDA 

0 Selecciona  ROM  en  $DOOO-$DFFF 

1 Selecciona  E/S  en  $DOOO-$DFFF 

3 

CWRITE 

SALIDA 

Linea  de  escritura  del  datassette 

4 

SWITCH 

ENTRADA 

Linea  del  interruptor  del  datassette 

5 

CMOTOR 

SALIDA 

Control  del  motor  del  datassette 

X- INDIFERENTE 

SK  RAM 

0=  BAJO 

EOOG 

I-ALTO 

4K  L-S 

LORAM  ■ J 

r.Au 

m:rau  - o 

ccoe 

i > AMi  . « 

IXROM  . X 

16K  RAM 

LORAM  . 1 

HIRAM  * 0 

GAME  « 0 

eoúo 

(Los  caracteres  en  ROM  no  están 

disponibles  en  esta  conjuración) 

F X ROM  . 0 

16K  RAM 

4000 

16K  RAM 

Memoria  disponible  60K  de  RAM  y 

4K  E/S  Las  rutinas  para  gestionar 

las  E/S  deben  ser  escritas  por  el 

0000 

usuano 

X = INDIFERENTE 

0- BAJO 

1 - ALTO 

8K  ROM  KERNAL 

4K  E/S 

4K  RAM 

LORAM  = 0 

16KRAM 

GAME  . 1 

EXROM  - X 

I6K  RAM 

16K  RAM 

(Este  mapa  se  puede  usa/  con  otros 
lenguajes  (incluyendo  CP'M).  con  un 
total  de  52K  RAM  usuano.  E/S  y ru- 
tinas para  maneja/  las  E/S) 
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X- INDIFERENTE 
O = BAJO 
1 “ALTO 


lqram  s a 
MIRAM  - 0 
OAME  . t 

EXROM  * X 
O 

LORAM  . 0 


(Este  mapa  la  da  accoso  a los  64K 
de  RAM  En  cualquie.  operación  de 
E/S  será  necesario  permitir  el  ae 
ceso  del  procesador  a la  lona  E/S) 


X - INDIFERENTE 

0-  BAJO 

1- ALTO 

LORAM  • 0 
MIRAM  - I 
GAMi  - 0 
EXROM  . 0 


(Este  mapa  le  proporciona  40K  contiguos 
de  RAM  usuario  y Hasta  8K  de  ROM  conec 
tabla  para  aplicaciones  basadas  en  ROM 
que  no  requieran  el  BASIC) 


X- INDIFERENTE 
O-BAJO 
1 -ALTO 

LORAM  . I 
MIRAM  • 1 
GAME  • 0 
EX ROM  » 0 


(Esta  es  la  configuración  standard  de 
un  sistema  en  BASIC  con  expansión  en 
ROM  del  BASIC  32K  RAM  usuario  y 
Hasta  8K  ROM  de  extensión  del  BASIC) 


X INDIFERENTE 

0 BAJO 

1 -ALTO 


LORAM  . I 
MIRAM  - 1 
GAME  • 0 
EXROM  . 0 


(Este  mapa  le  proporciona  32K  contiguos 
de  RAM  usuano  y Hasta  I6K  de  ROM  en 
ca  : .:o  ; ara  aptccciones  que  no  re 
quietan  el  BASIC  (Proceso  de  texto,  otros 

f;ngua¡c;,  etc.)) 


6K  CARTUCHO  ROM 


X INDIFERENTE 
0=  BAJO 
I-ALTO 

LORAM  - X 
MIRAM  - X 
GAME  • 0 
EXROM  - 1 


8K  CARTUCHO  ROM 


(Este  es  el  mapa  de  memoria  para  video 
I Liegos  ULTIMAX.  Advierta  que  los  2K  de 
expansión  RAM.  si  se  requieren,  son  ac 
cedidos  tuera  del  G-64  y cualquier  RAM 
presente  en  el  cattucHo  es  ignorada) 


X- INDIFERENTE 
0=BAJO 
t -ALTO 

LORAM  - I 
MIRAM  - 1 
GAME  . t 
EXROM  ■ t 


Esta  es  la  configuración  normal 
Proporciona  BASIC 
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UTILIDADES 

La  Instrucción  Print  AT 

Más  posibilidades  de  uso  del  comando  print 

Aunque  este  artículo  no  es  una  continuación 
del  que  se  publicó  el  mes  pasado,  de  algún  modo  enlaza  con  él 
al  tratar  una  manera  de  “liberar”  el 
comando  print  de  las  limitaciones  que  le  impone  el  basic  puro. 


Algunos  intérpretes  de  BASIC  incluyen 
un  comando  que  se  conoce  general- 
mente como  PRINT  AT.  que  permite 
mediante  la  adición  de  un  par  de  paráme- 
tros realizar  el  PRINT  en  una  columna  y 
l ila 'determinadas  de  la  pantalla.  No  obs- 
tante es  sencillo  simular  su  funciona- 
miento con  el  BASIC  de  los  equipos 
COMMODORE. 

Además  como  la  simulación  de  PRINT 
AT  se  puede  obtener  de  varias  maneras 
diferentes,  veremos  un  programa  que  nos 
servirá  para  evaluar  la  velocidad  de  ejecu- 


OFERTA 

DE 

TRABAJO 


Se  necesitan 
colaboradores 
para  traducción 
de  manuales  y 
programas  pa- 
ra COMMODO- 
RE-64.  Impres- 
cindible residir 
en  Barcelona  y 
ser  usuario  de 
este  equipo. 


Interesados 
llamar  a Sr.  Pardo 
Tel.:  321  96  36  - 
321  97  58 
en  horas  de  oficina 


Por  Pere  Masats 


ción  y la  encienda  en  la  utilización  de  la 
memoria  por  parte  de  diferentes  subrutinas 
Para  empezar  veamos  e)  programa  de 
soporte  y evaluación  de  las  subrutinas  que 
vamos  a probar: 

0 G0T05 

1 OPENI,8,15,“S:PXYI":CLOSEI: 
SAVE"PXYI".8:VER1FY"PXYI".8 

5 GOTO  100 
10  REM 
20  RETURN 

100  FO=3891  l:FI=FRE(0)+65536: 

PRINTCHRSl  147): 

1 10  T=TI 

120  FORI=ITOIOO 
130  X=INT(25*RND(0)V+ 1 
140  Y=INT(40*RND(0))+ 1 

150  GOSUB 10: PRINT ; 

155  X=12:Y=13:GOSUB10:PRINTI“AS- 
TERISCOS"; 

160  NEXTI 

200  X=12:Y=l:GOSUBI0:PRINT"100 
ASTERISCOS  (GOTO  X.Y  200 
VECES)  EN03SPC)”; 

220  PRINTINT  (((Tl-T)/60)*100)/I00: 

“SEGUNDOS!  I4SPC)" 

230  F2=FRE(0)+65536:PRINT"(7SPC) 
EL  PROGRAMA  OCUPA  '.FO-FI; 
"BYTES." 

240  PRINT  “(3SPC)  DESPUES  DE  LA 
EJECUCION  SE  OCUPAN:(  14SPC)"; 
F0-F2.“BYTES.“ 

250  END 

El  funcionamiento  del  programa  es  el 
siguiente: 

Las  lineas  0 y I son  un  truco  personal 
para  cargar  en  disco  con  facilidad  el  pro- 
grama a medida  que  se  va  entrando  y/o 
depurando.  Haciendo  RUN  I cargamos 
en  disco  la  última  versión  (la  actual)  del 
programa  y a continuación  se  ejecuta  éste. 
En  cambio  si  hacemos  un  RUN  sin  más  el 
programa  se  ejecuta  de  manera  normal. 
En  el  caso  de  que  el  lector  sólo  posea  un 
aparato  para  grabar  en  cinta  (cassette) 
debe  modificar  adecuadamente  la  linea  I. 


La  linea  5 nos  envia  la  ejecución  a la 
linea  KM)  "saltando"  por  encima  de  las 
líneas  10  y 20  que  se  reservan  para  conte- 
ner la  subrutina  que  deseamos  probar. 

En  la  linea  KM)  la  variable  FO  almacena 
el  valor  de  Bytcs  libres  del  64  sin  ningún 
programa,  que  más  adelante  necesitare- 
mos para  determinar  la  ocupación  de 
memoria  del  programa  antes  y después  de 
su  ejecución,  seguidamente  almacenamos 
en  Fl  el  valor  actual  de  Bytcs  libres  y para 
terminar  borramos  la  pantalla.  Fl  valor 
3891 1 deberá  cambiarse  en'el  caso  de  uti- 
lizar este  programa  en  un  equipo  que  no 
sea  el  COMMODORE  64.  como  deben 
saber  los  usuarios  de  este  equipo  se  suma 
65536  a FRE  (0)  para  prevenir  un  valor 
negativo  en  caso  de  poca  ocupación  de 
memoria. 

En  la  línea  1 10  se  almacena  en  la  varia- 
ble T el  valor  de  la  variable  de  tiempo  (TI) 
para  determinar  después  de  la  ejecución  el 
tiempo  invertido. 

En  la  linca  120  se  inicia  un  bucle  para  la 
ejecución  de  la  subrutina  KM)  veces  (en 
realidad  son  200  veces,  como  veremos  más 
adelante). 

A continuación,  en  las  lineas  130  y 14(1 
se  da  a las  variables  X e Y valores  aleato- 
rios entre  I y 25  para  X (línea)  y entre  I y 
40  para  Y (columna).  Por  su  parte  en  la 
linea  150  se  realiza  la  llamada  a la  subru- 
tina propiamente  dicha  (GOSUB  10)  y 
luego  el  PRINT  del  carácter  (en  este  caso 
Como  se  verá  más  adelante  la  téc- 
nica que  utilizamos  consiste  en  situar  el 
cursor  en  el  lugar  que  deseamos  (de  lo  que 
se  encargarán  las  subrutinas  que  estudia- 
remos) y luego  realizar  el  PRINT  (primero 
apuntar  y después  disparar). 

En  la  linea  155  nos  aprovechamos  de  la 
subrutina  que  estamos  estudiando  para 
sacar  por  pantalla  el  número  de  impresio- 
nes que  se  han  realizado.  Y la  linea  160 
termina  la  ejecución  del  bucle. 

En  las  lineas  200-250  se  realiza  la 
impresión  final  del  programa,  dando  los 
resultados  de  ocupación  de  memoria  y de 
tiempo  empleado  en  la  ejecución. 

Y ahora  veamos  las  rutinas  propia- 
mente dichas.  En  las  lineas  200,  220.  230  y 
240  se  incluyen  entre  paréntesis  el  número 
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de  espacios  (xxSPC)  necesarios  para  reali- 
zar una  presentación  correcta  del  mensaje. 

La  primera  de  ellas  se  desarrolla  en  los 
siguientes  pasos: 

—Poner  el  cursor  en  HOME. 

— Hacer  un  PRINT  de  X-l  caracteres 
CURSOR  ABAJO. 

—Hacer  un  PRINT  de  Y-l  caracteres 
CURSOR  DERECHA 
—Hacer  un  PRINT  del  carácter. 

A continuación  vemos  una  subrutina 
para  hacer  esto: 

10  PRINTCHR$(I9): 

12  IFX-=2THENI6 
14  FORZ=lTOX-l:PRINTCHRS(  17): 
NEXTZ 

16  1FY-&2THEN20 

18  FORZ  lTOY-l:PRINTCHR$<29): 

:NEXTZ 
20  RETURN 

Que  colocada  en  el  programa  de  eva- 
luación de  subrutinas  nos  ha  dado  (en  un 
COMMODORF  64)  los  siguientes  resul- 
tados: 

TIEMPO- 39  SEGUNDOS 
OCUPACION  DF  MEMORIA=580  Bytcs 
antes  de  la  ejecución  y 622  después  de  la 
ejecución. 

Esta  rutina  no  tiene  ningún  secreto 
exceptuando  los  IF-THEN  de  las  lineas  12 
y 16  que  permiten  trabajar  en  la  primera 
¡inca  y la  primera  columna  de  la  pantalla. 

Aunque  no  es  muy  rápida  ya  es  un 
comienzo.  Y podríamos  ganar  tiempo 
colocando  los  movimientos  de  cursor  en 
dos  cadenas  de  caracteres,  para  ello  nece- 
sitaremos algún  tipo  de  inicialización  al 
principio  del  programa: 

0 GOTO2 

2 X$“‘"':F0RI  = IT024:X$=XS+CHRS 
(I7):NEXTI 

3 Y$=‘"':E0RI=IT039:Y$=Y$+CHRS 
(29LNEXTI 

La  linea  0 se  modifica  pura  realizar  la 
inicialización  en  las  lineas  2 y 3 que  a su 
vez  preparan  dos  cadenas  de  caracteres 
con  los  movimientos  de  cursor  necesarios. 
Asi  la  subrutina  propiamente  dicha  que- 
daría reducida  a: 

10  PR I NTCH  R$(  I9);M  I D$(  X$.  I .X- 1 ): 

MID$(Y$.I.Y-I): 

20  RETURN 

El  cambio  en  tiempo  de  ejecución  es 
grande,  pues  pasamos  de  39  a 1 1 segundos 
pero  el  programa  antes  y después  de  ejecu- 
tarse ocupa  689  y 717  Bytes  respectiva- 
mente (cuando  con  la  rutina  anterior  ocu- 
paba 580  y 622),  Lo  que  ocurre  es  algo 
muy  típico  en  el  uso  de  ordenadores:  si 
ganamos  velocidad  perdemos  memoria  y 
viceversa. 

¿Esta  ley  fundamental  puede  ser  bur- 
lada? La  respuesta  es  SI.  Para  ello  razo- 
nemos un  poco: 

La  primera  alternativa  que  se  nos  ocu- 
rre es  la  de  escribir  la  rutina  de  posicio- 
namiento  del  cursor  en  código  máquina  lo 
cual  nos  permitirá  trabajar  a la  máxima 
velocidad  que  permite  nuestro  equipo, 
pero  resultará  complicado  incorporar  esta 
rutina  en  nuestros  programas  en  BASIC  y 
además  continuaremos  sin  resolver  el 
problema  de  ocupación  de  memoria.  La 
solución  ideal  consiste  en  utilizar  alguna 
rutina  del  sistema  operativo  de  nuestro 
ordenador  que  realice  esta  función.  En  el 


caso  del  COMMODORE  64  las  lineas  10- 
20  deben  ser: 

10  POKF.2I  I.X-LPOKE2I4.Y-I: 

SYS58732 
20  RETURN 

Con  POKF.2I  I.X-LPOKE2I4.Y-I  pre- 
paramos la  columna  y Ella  en  las  que  que- 
remos trabajar  y el  SVS  sitúa  el  cursor  en 
el  lugar  preselcccionado.  Los  resultados 
son  muy  buenos:  8 segundos  y 532-567 
Bytes.  Por  último  para  los  equipos  con 
BASIC  4.0  (4032  y 8032)  la  línea  10  seria: 

10  POKE  2I6.X-LPOKE  198.Y-I: 
SYS57447. 


Commodore  World  Mayo  1984/45 


• RECIAM  • 


C5  Rincón  del  700 

SOFTWARE  PARA  EL  700  (6): 
UTILITARIOS  (2) 

Unit  Change  y 
Hender  Change 


Por  Jordi  Sastre 


Le  toca  el  turno  a dos  utilitarios  bastante  sencillos 
y concretos.  Uno  para  cambiar  el  número  de  periférico  a la  unidad 
de  discos  (UNIT  CHANGE).  y otro  para  cambiar  el 
nombre  a un  disco  (HEÁDER  CHANGE). 


UNIT  CHANCE 

Auna  CPU  de  Commodorc,  no  sólo  de 
la  serie  700  sino  también  de  las  ante- 
riores (8000.  4000,  ...).  se  le  pueden  conec- 
tar varias  unidades  de  disco.  El  bus  IEEE 
permite  formar  una  cadena  de  periféricos 
en  principio  ilimitada  con  la  única  condi- 
ción de  que  cada  periférico  tenga  un 
número  diferente,  a efectos  de  una  fácil 
identificación.  Por  ejemplo,  una  CPU 
puede  disponer  de  dos  impresoras  (una 
con  el  número  4 y otra  con  el  5)  y tres 
unidades  de  disco  (numeradas  como  8.  9 y 
10).  todo  ello  trabajando  interactiva- 
mente. 

Como  lodo,  los  números  de  periférico 
también  tienen  sus  reglas.  Si  enviamos 
datos  hacia  el  periférico  número  4.  el 
ordenador  ya  sabe  que  se  trata  de  una 
impresora,  de  la  misma  manera  que  el  8 
corresponde  al  disco  y el  3 a la  pantalla. 
Concretamente,  los  números  de  periférico 
permitidos  en  el  700  son: 

0 - Teclado. 

2 - Interfacc  RS  232  C. 

3 - Pantalla. 

4-7  - Impresoras. 

8-15  - Unidades  de  Disco. 

Las  unidades  de  disco  son  el  único  peri- 
férico al  que  se  le  puede  cambiar  el 
número  sin  hacer  modificaciones  internas 
de  hardware.  Es  decir,  por  programa 
podemos  cambiar  su  número,  que  perma- 
necerá activo  hasta  que  se  apague  la  uni- 
dad o se  vuelva  a cambiar  de  número. 

La  operación  en  basic  es  bastante  senci- 
lla: 

OPEN  I5.PA.15 

PR1NT«I5,“M-W"CHR$(I2)CHRS<80) 

CHR$(2)CHR$(32+PN)CHR$(64+PN) 

CLOSE15 

Siendo  PA  el  número  de  periférico 
actual  y PN  el  nuevo  número. 

La  principal  ventaja  de  que  esta  opera- 
ción esté  integrada  en  un  utilitario  es  evi- 
tar el  tener  que  acordarse  de  la  secuencia 
de  caracteres  que  han  de  enviarse  al  disco. 

Esta  función  actúa  sobre  cualquiera  de 
las  unidades  de  discos  Commodore  ante- 
riores y actuales  en  el  mercado:  2031. 
2040.  3040,  4040.  8050.  8250.  9060  y 9090. 
No  funciona  para  las  unidades  1540  ni 
1541  de  ordenadores  personales. 

La  unidad  vuelve  a su  número  original 
en  cualquiera  de  los  siguientes  casos: 

— Desconectando  la  unidad  de  discos. 


— Desconectando  la  CPU  estando  a ella 
conectada  la  unidad  de  discos  (por  el  bus 
IEEE,  claro). 

— Reseteando  la  unidad  de  discos: 
OPEN.8.l5.“U:”:CLOSEI5 

F.I  manejo  del  utilitario  UNIT  CHANGE 
no  tiene  ningún  problema.  Basta  con  car- 
gar el  programa  (DLOAD  “UNIT 
CHANGE”)  y ejecutarlo  (RUN). 

Una  vez  en  marcha  pide  el  número 
actual  del  periférico  y el  nuevo  número. 
Comprueba  que  ambos  números  sean 
correctos:  que  estén  comprendidos  entre  8 
y 1 5 (ambos  inclusive),  y que  el  número  de 
periférico  actual  esté  realmente  conectado 
a la  CPU. 

Si  estos  requisitos  se  cumplen,  el  pro- 
grama cambia  el  número  y finaliza. 

HEADER  CHANGE 

Cambiar  el  nombre  a un  disco  puede 
parecerlc  una  tontería  a quien  nunca 
lo  haya  hecho.  Si  cambiamos  el  contenido 
de  un  disco,  lo  normal  es  que  lo  volvamos 
a formatar.  asignando  entonces  el  nuevo 
nombre.  Pero  por  aquello  que  pasa  y 
nunca  se  sabe  por  qué.  más  de  una  vez  nos 
vemos  en  la  necesidad  de  cambiarle  el 
nombre  a un  disco.  De  todas  maneras 
siempre  es  interesante  saber  que  es  una 
cosa  que  puede  hacerse  en  cualquier 
momento. 

F.I  nombre  del  disco  está  almacenado  en 
el  bloque  de  cabecera  de  directorio.  Este 
bloque  se  halla  en  diferente  track  y sector 
según  el  modelo  de  unidad  de  discos  de 
que  se  trate.  En  la  Tabla-I  puede  apre- 
ciarse la  ubicación  del  nombre  del  disco 
en  cada  modelo: 

El  espacio  destinado  a guardar  el  nom- 
bre del  disco  es  siempre  de  16  bytcs.  En 
caso  de  que  el  nombre  fuera  menor, 
deberá  rellenarse  con  CHR$(I60)  hasta 
completar  los  16  bytcs. 

Hay  varias  maneras  de  cambiar  el 
nombre  a un  disco.  Puede  hacerse  con  el 
utilitario  HEADER  CHANGE,  del  que 
ahora  me  estoy  ocupando.  También  con  el 


DISKMON.  pues  gracias  a la  Tabla- 1 
sabemos  exactamente  dónde  está  ubicado 
el  nombre.  O puede  hacerse  en  Basic. 

Veamos  el  siguiente  programa: 

10  INPUT  “NUEVO  NOMBRE  DEL 
D!SCO";ND$ 

20  IF  LEN(ND$)*=16  THEN  NDS-  NDS 
+CHRSG60)  : GOTO20 
30  ND$=LEFT$(ND$,I6) 

40  OPEN  15.8.15  : OPEN  2.8.2."»" 

50  PRINT#  I5.“U  I ”;2;0;39;0 
60  PRINT#  I5."B-P":2;6:  PRINTK2.ND8: 
70  PRINT»  I5.“U2":2:0;39:0 
80  CLOSE2  : CLOSE15 

No  es  difícil  analizar  lo  que  hace.  En  la 
linea  10  pide  el  nuevo  nombre  que  se 
desea  dar  al  disco.  En  la  linea  20  lo  com- 
plementa con  CHR$(I60)  en  el  caso  de 
que  se  haya  introducido  un  nombre 
menor  de  16  caracteres,  y en  la  línea  30  lo 
corta  por  si  se  ha  introducido  un  nombre 
demasiado  largo. 

En  la  línea  40  abre  el  canal  15  de 
comandos  y el  fichero  2 de  acceso  directo. 
En  la  50  carga  en  memoria  el  bloque 
correspondiente  al  track  39.  sector  0,  pues 
estamos  usando  la  unidad  de  discos  8050 
ó 8250  (consultar  Tabla- 1 ).  En  la  linca  60 
escribe  el  nuevo  nombre  del  disco  a partir 
del  bytc  6.  y en  la  70  graba  de  nuevo  el 
bloque  en  su  lugar. 

El  utilitario  HEADER  CHANGE  hace 
exactamente  lo  mismo  que  nuestro  pro- 
grama Basic,  aunque  con  las  ventajas  que 
un  utilitario  bien  hecho  conlleva:  posibili- 
dad de  modificar  el  nombre  sin  tener  que 
teclearlo  todo  entero,  gestión  sobre  el 
track  y sector  pertinentes  según  el  modelo 
que  se  utiliza,  y posibilidad  de  cambiar 
también  el  identificador  del  disco. 

El  funcionamiento  del  HEADER 
CHANGE  es  el  siguiente: 

En  primer  lugar  pide  el  modelo  de  uni- 
dad (8050.  8250.  9060  ó 9090).  el  número 
de  periférico  y el  drive.  Comprueba  que 
estos  datos  sean  correctos.  Si  es  así  visua- 
liza el  nombre  c identificador  actuales  del 
disco  permitiendo  su  modificación.  Una 
vez  el  operador  ha  validado  estos  datos,  se 
graban  en  el  disco  y finaliza  el  programa. 


MODELOS 

TRACK 

SECTOR 

BYTES 

2031  y 4040 

18 

0 

144-159 

8050  v 8250 

39 

0 

6-21 

9060  v 9090 

76 

20 

6-21 
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Q 

Galería  de  Soft 

Continuación  del  listado  de  programas  de  Microelectrónica  y Control 


PROGRAMAS  VIC-20 

Programas  en  cinta 


Programas  Educativos 

Hangmath  1.500 

Sumas  y restas  para  chicos  muy  jóvenes  saliendo  naves  espaciales  para  motivarlos.  Una  manera  de 
resultado  final),  procurando  no  ser  ahorcado.  Las  instrucciones  son  en  castellano 

Skymath  1.500 

Sumas  y restas  para  chicos  muy  jóvenes  saliendo  naves  espaciales  para  motivarlos.  Una  mara  de 
aprender  jugando.  3K. 

Space  División  1.500 

20  preguntas  sobre  divisiones  muy  sencillas.  En  función  de  los  resultados  correctos,  despega  un 
cohete  que  llegará  más  o menos  lejos  3K. 

English  Languaje  2.000 

Especialmente  adecuado  para  las  personas  que  poseedoras  de  un  buen  nivel  de  inglés,  quieren 
alcanzar  cotas  superiores  Necesita  ampliación  de  8K  Presentado  en  caja  y acompañado  de  su  corres- 
pondiente manual. 

Mastermind  3.000 

Participe  en  el  famoso  concurso  de  la  BBC.  de  preguntas  y respuestas  sobre  temas  variados 
Este  cassete  va  acompañado  del  sistema  operativo  y de  un  file  de  demostración  Necesita  ampliación 
de  8K  Presentado  en  caja 

Matemáticas  I (Nivel  BUP)  2.000 

Contiene  sistema  operativo  y 7 cuestionarios  sobre  diferentes  temas  abarcando  geometría,  aritmética, 
matemáticas  generales,  álgebra,  etc.  Necesita  ampliación  de  8K  ó 16K  Presentado  en  caja 

Programas  aplicaciones 

Agenda  telefónica  10.000 

Programa  que  permite  llevar  una  agenda  telefónica  Tiene  una  capacidad  de  300  números  de  teléfono. 

Presentado  en  disco  Manual  en  castellano. 


PROGRAMAS 
COMMODORE  64 


Programas  Educativos 


Music  Machine  4.500 

Ejercítese  tocando  un  teclado  musical,  con  acompañamientos  Presentado  en  cartucho 

Music  Composer  4.500 

Este  cartucho  le  permite  componer  su  melodía,  favorita  y guardarla  en  un  cassette  Presentado  en 
cartucho. 

Visible  Solar  System  4.500 


Cartucho  educativo  en  el  cual  usted  tendrá  imágenes  de  los  planetas  y las  órbitas  que  éstos  describen 
en  el  sistema  solar.  Presentado  en  cartucho. 

Speed/Bingo  Math  4.500 

Son  dos  tipos  de  juegos.  En  cada  uno  le  aparece  una  pantalla  sobre  la  cual  usted  debe  resolver  los 
problemas  planteados.  Presentado  en  cartucho. 

Física  I : 3.500 

Este  disco  contiene  varios  programas  para  el  uso  educativo  en  el  área  de  FISICA.  Estos  programas 
tocan  como:  Funcionamiento  del  péndulo  simple;  Electricidad,  estudios  sobre  resistencias  en  serie  y 
en  paralelo;  Atomo  de  Bohr;  El  principio  de  Arquimides.  Presentado  en  disco.  Programas  en  catellano. 
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5 cintas  para  divertirse 


Están  fabricadas  en  Inglaterra,  por  las  prestigiosas  firmas 
Imagine  Software  y Technology  Group  Ltd.  y las  distribuye  en  España 
por  correo  Micro  Informática  Soft,  S.A.  (M.I.S.S.A.).  con  explicaciones  e 
instrucciones  completas  en  español.  Estos  cinco  programas  los  hemos  estado 
probando  en  nuestra  redacción.  I.os  hemos  encontrado  muy  entretenidos, 
bien  confeccionados  y de  muy  buen  funcionamiento, 
por  lo  que  publicamos  a continuación  una  reseña  resumen  de  su  contenido. 


Pedro 

(2.325  Ptas.)  C-64 


Arcadia-64 

(2.150  Ptas.)  C-64 


No  hay  tiempo  para  que  Pedro 
se  eche  la  siesta,  es  el  Jardi- 
nero más  ocupado  de  México. 

t e ha  costado  muchos  años  de 
trabajo  y de  mimos  para  llegar  a 
tener  el  jardín  de  flores  más  bonito 
del  país  I-I  problema  es  que  todos 
los  animales  del  barrio  han  adqui- 
rido un  gusto  para  las  flores  sucu- 
lentas de  Pedro  y siempre  están 
buscando  la  forma  de  entrar  en  el 
tardin  para  comérselas. 

Pedro  trabaja  de  sol  a sol  y los 
animales  no  le  dejan  ni  un  momento 
de  paz.  Intenta  por  todos  los 
medios  evitar  que  los  animales 
coman  sus  llores,  desde  bloquear 
los  senderos  del  jardín  con  abono  y 
ladrillos,  hasta  ahuyentar  a los 
animales  o saltar  encima  de  ellos: 
Pero  con  todo,  algunos  llegan  a 
colarse. 

Cada  ve?  que  un  animal  consi- 
gue entrar  y comerse  unas  flores. 
Pedro  tiene  que  sembrar  más.  Un 
problema  viene  detrás  de  otro.  y. 


por  si  lucra  poco,  el  vagabundo  del 
barrio  entra  de  ve?  en  cuando  e 
intenta  robar  unas  semillas  y Pedro 
tiene  que  estar  pendiente  de  él 
también. 

F.ntrc  los  animales  intrusos  y el 
vagabundo  ladrón,  parece  que  tu 
tampoco  vas  a tener  tiempo  para 
echarte  la  siesta. 

Asi  que.  anímate,  esto  no  se 
puede  dejar  para  mañana.- 

FINALIDAD  DPI.  JUEGO 

Para  evitar  que  los  animales  se 
coman  las  plantas.  Pedro  tiene  que 
recoger  los  ladrillos  o el  abono  de 
las  esquinas  inferiores  de  la  panta- 
lla para  bloquear  las  salidas  del 
laberinto.  No  puede  llevar  o colo- 
car más  de  un  objeto  a la  ve?. 

Cualquier  animal  que  logre  entrar 
en  el  jardín  se  dirigirá  hacia  las 
plantas  y empc7ará  a comérselas. 
Tu  tienes  que  decidir  si  prefieres 
bloquear  el  laberinto  o encargarte 
de  los  animales,  y luego  tienes  que 
sembrar  las  calvas  en  el  jardin.  en 
cuanto  te  sea  posible. 


Tu  trabajo  como  asesor  del 
gobierno  para  el  ocio  no  te 
convence  mucho,  así  que  decides 
buscar  el  método  de  ganarte  unas 
‘"pelas"  extras.  Llevas  tiempo  pa- 
teando las  calles  sin  haber  encon- 


Tu  eres  el  capitán  de  la  nave 
estrella  ARCADIA  La  más 

sofisticada  tecnología  especial  jamás 
inventada  está  bajo  tu  control, 
incluyendo  el  impresionante  motor 
Ion  Thrust.  y la  energía  imponente 
del  arma  doble  Plasma  Disruptor, 
Con  todo  esto,  tú  eres  el  ser  más 
potente  de  la  galaxia  ..  y.  para 
algunas  personas,  el  más  odiado. 

Fl  pueblo  atariano  ha  ido  amplian- 
do su  imperio,  a base  de  esclavizar 
poco  a poco  a los  planetas  más 
pequeños  y más  vulnerables  Ahora 
mismo  se  encuentra  en  una  inmeto- 
rablc  situación.  > está  dispuesto  a 
esclavizar  la  galaxia  entera. 

La  única  fuer?a  capa?  de  recha- 
zar el  ataque  de  las  hordas  de  Atan 
está  en  tus  manos:  la  nave  estrella 
ARCADIA  Cada  fibra  de  tu 
cuerpo  tiembla  de  tensión  mientras 
te  preparas  para  enfrentarte  al  ata- 
que de  la  flota  de  guerra  de  Atari. 

Atacan  al  Arcadia  en  oleadas, 
cada  ataque  con  un  tiempo  de 
duración  fija.  Si  consigues  destruir 
la  flota  entera  dentro  de  este 
tiempo  fijo,  otra  flota  te  atacará.  Si 
alguna  ra?a  fracasa  en  el  intento  de 
destruir  el  Arcadia,  otra  raza  con- 
tinuará el  ataque. 

Cada  ve?  que  se  inicia  un  ataque 
nuevo,  este  consistirá  en  unas 


irado  nada,  hasta  que  de  repente 
tropiezas  con  un  cartel  ofreciendo 
trabajo  en  un  pequeño  hotel 
metido  en  un  callejón  tranquilo.  Al 
entrar  en  este  lugar  destartalado 
descubres  que  el  trabajo  es  de 


naves  más  sofisticadas  y más  mor- 
tíferas que  las  anteriores.  ¿Puédes 
seguir  defendiéndote  contra  el 
imperio  de  Atari’’  La  suerte  de  toda 
la  galaxia  está  en  tus  manos,  ¿tú 
tiénes  la  fuerza  de  voluntad  y la 
habilidad  para  salir  adelante?  ¿Eres 
capa?  de  salvar  la  civilización? 

La  cinta  contiene  8 variaciones 
posibles  de  tuego. 


camarero,  y tu  situación  desespe- 
rada te  obliga  a solicitar  el  empleo. 
El  jefe  de  aspecto  mezquino  decide 
aceptarte,  pero  te  avisa  que  no  te 
quitará  el  ojo  de  encima 

Pronto  te  ves  ataviado  en  un 
chaleco  y pantalón  elegantes  y dis- 
puesto a atender  cualquier  capri- 
cho de  los  clientes.  Te  encuentras 
en  la  recepción  esperando  tu  pri- 
mera tarca,  que  no  tarda  en  llegar. 
Un  huésped  empieza  a pedir  ser- 
vicio a gritos,  asi  que  tú  echas  a 


El  Camarero  Enloquecido 

(Wacky  Waiter) 

(1.725  Ptas.)  VIC-20 
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correr  para  ver  lo  que  quiere.  Tie- 
nes que  ir  a la  tercera  planta,  asi 
que  coges  el  primer  ascensor  que 
pasa  y bajas  en  dicha  planta.  Pero 
el  cliente  se  encuentra  al  otro 
extremo  y tu  sólo  puedes  llegar  a él 
mediante  los  ascensores  situados 
en  medio.  Tienes  que  esperar  que 
pase  el  siguiente  ascensor  pero  lo 
pierdes  Mientras  tanto,  tu  propina 
se  va  reduciendo,  pero  ya  aprende- 
rás. El  ascensor  pasa  por  fin  y lo 
coges  corriendo.  Ahora  que  has 
cogido  el  truco,  sigues  cogiendo 
ascensores  hasta  que  llegues  a la 
planta  donde  tienes  que  bajar.  Allí 
se  encuentra  el  cliente  pidiénlotc 
¡¡VINO"  a gritos.  Te  diriges  a la 
planta  donde  sirven  el  vino  para 
recogerlo  y llevarlo  al  cliente  y 
aceptar  la  pequeña  propina  que  le 
ofrecen.  Sólo  te  pagan  en  propinas, 
asi  que  más  vale  que  te  vayas 
cogiendo  el  truco  rápidamente. 
Vuelves  a la  recepción  donde  te 
espera  otra  llamada  y sales  corriendo 
de  nuevo.  Pero  acuérdate  que  el 
tefe  siempre  te  está  espiando  y si  te 
caes  camino  ai  ascensor,  recibirás 
un  aviso  por  escrito,  pero  si  él  te 
ve.  te  despedirá  en  seguida.  La  can- 
tidad de  la  propina  continúa  redu- 
ciéndose. y si  no  llegas  a servir  al 
diente  antes  de  que  la  propina  lle- 
gue a cero,  el  cliente  beberá  su 


copa  de  un  trago  y.  totalmente 
borracho,  saldrá  en  tu  búsqueda. 
Si  te  encuentra,  no  estará  muv  con- 
tento de  verte  y te  tirará  las  copas 
por  todos  lados,  provocando  otro 
aviso  por  escrito  de  parte  del  jefe. 
Por  ahora,  ya  van  dos  avisos,  v uno 
más  y te  encuentras  en  la  calle.  Asi 
que  ojo. 

Efectivamente,  la  vida  de  cama- 
rero no  es  nada  fácil. 


Hechizado 


(Bewitched) 
(1.875  Ptas.)  VIC-20 


La  muerte  y el  hambre  dominan 
la  tierra  mientras  crecen  las 
I fuerzas  y la  astucia  de  los  poderes 
del  mal,  En  un  momento  de  des- 
cuido tuyo  el  mago  malévolo. 
Mordrcad.  te  ha  lanzado  a las  pro- 
fundidades del  laberinto  embru- 
iado  debato  de  su  lúgubre  castillo. 

El  mago  le  ha  convertido  en  una 
llave  mágica  destinada  a vagar 
eternamente  por  los  laberintos 
embrujados  escondidos  bato  tierra. 


mientras  él  esclaviza  a todos  los 
que  viven  en  la  superficie. 

Si  no  fuese  por  el  hecho  de  que 
tú  eres  el  mago  más  brillante  de  la 


siempre:  pero,  a medida  que  vayas 
pensando  en  los  siglos  de  tu  vida 
dedicada  a mago,  de  repente  se  le 
ocurre  una  solución  a tu  problema: 
es  una  solución  en  teoría,  pero 
¿serias  capaz  de  llevarlo  a cabo? 

Existen  cuatro  juegos  de  puertas 
de  distintos  colores,  y hay  que 
abrir  cada  una  de  ellas  antes  de 
alcanzar  la  libertad,  y mientras 
tanto  te  persiguen  hordas  de  fan- 
tasmas y demonios  que  intentan 
impedir  tu  progreso. 

A la  entrada  del  laberinto  se 
encuentran  cuatro  llaves  colora- 
das: los  colores  corresponden  a los 
de  las  puertas.  Tú  tienes  que  pasar 
a través  de  una  de  estas  llaves  para 
que  te  conviertas  en  el  mismo  color, 
y solamente  en  este  caso  podrás 
abrir  las  puertas  correspondientes, 
puertas  correspondientes. 

lina  vez  abiertas  todas  las  puer- 
tas del  mismo  color  tienes  que  vol- 
ver a la  entrada,  pasar  por  otra 
llave  para  cambiarte  de  color,  e 
iniciar  el  ataque  a otro  juego  de 
puertas. 

Este  proceso  tiene  que  repetirse 
hasta  que  todas  las  puertas  hayan 
sido  abiertas  y le  permita  alcanzar 
la  libertad:  pero  cuanto  más  te 
vayas  acercando  al  momento  de 
alcanzar  la  libertad  más  frenéticas 
se  ponen  las  hordas  de  Mordrcad 
en  sus  intentos  de  impedir  tu  éxito. 

Tienes  que  escaparte  de  este 
lugar  húmedo  y lúgubre,  para  que 
puedas  combatir  las  fuerzas  de  la 
oscuridad  y traer  la  luz  y la  libertad 
a la  tierra  de  nuevo. 


El  Super  Detective 


(Catcha  Snatch) 
(1.725  Ptas.)  VIC-20 


Dt  arney  Bootlace  nunca  lo  ha 
pasado  tan  mal.  de  ser  detec- 
tive para  la  aristocracia,  ha  pasado 
a ser  un  humilde  detective  del 
almacén  peor  organizado  de  la 
ciudad.  Pasea  aburrido  por  los 
mostradores  de  joyas  y relojes, 
pensando  en  su  lamentable  situa- 
ción. La  vida  se  presenta  difícil 
para  un  duro  luchador  en  contra 
del  crimen  cuando  se  pasa  el  dia 
recogiendo  a niños  perdidos  para 
llevarlos  a la  oficina  de  niños  per- 
didos situada  en  la  esquina  supe- 
rior izquierda  del  almacén.  Tam- 
bién tiene  que  llevar  paraguas  y 
bolsos  extraviados  al  despacho  de 
objetos  perdidos  situado  en  la 
esquina  superior  derecha  del  alma- 
cén. La  acción  se  anima  un  poco 
cuando  algún  ratero  de  poca 
monta  intenta  llevarse  alguna  caja 
del  mostrador  Barncy  tiene  que 
arrebatarle  la  caja  y devolverla  a la 
oficina  del  jefe  como  prueba,  pero 
ojo  con  el  ratero.  Mientras  tu 
intentas  hacerte  con  la  caja,  el 
ratero  la  ocultará  debajo  de  su 
abrigo,  y tienes  que  vigilarle  por  si 
se  pierde  entre  la  gente.  El  jefe  se 
encuentra  en  frente  de  la  salida 
principal  situada  en  la  esquina 
inferior  izquierda  del  almacén 
Hay  un  momento  en  que  nuestro 
héroe  tiene  motivo  para  perder  la 
calma  — cuando  un  cliente  de  vez 
en  cuando  deja  caer  una  bomba 
paquete  detrás  de  los  mostradores. 
La  única  opción  para  Barncy  es  de 
coger  la  bomba  y salir  corriendo 
con  ella  hacia  la  doble  puerta  de 
salida!  Por  supuesto,  si  logras 
realizar  esta  hazaña,  llevas  buen 
camino  hacia  una  promoción  inme- 
diata al  siguiente  nivel.  La  única 


meta  que  tiene  Barney  en  la  vida  es 
la  de  conseguir  la  promoción  al 
siguiente  nivel  de  juego  ganándose 
el  respeto  del  jefe.  Evidentemente, 
si  esta  opción  queda  por  debajo  del 
0%.  Barney  recibirá  un  aviso  por 
escrito  y será  degradado  por  un 
nivel.  Al  recibir  tres  avisos  por 
escrito,  será  despedido.  Siempre 
puedes  aumentar  tus  posibilidades 
subiéndote  dos  niveles,  ya  que  el 
jefe  te  quitará  un  aviso.  Tienes  que 
estar  pendiente  siempre  de  la  hora 


porque  a las  sets  de  la  tarde  hay 
una  avalancha  de  gente  comprando. 

Estarás  deseando  que  lleguen  las 
ocho  para  que  cierre  el  almacén, 
pero  estáte  preparado  para  el  dia 
siguiente  porque  llegarán  verdade- 
ras hordas  de  amas  de  casa  que 
salen  de  compras. 
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casa  de 
software  sa. 


PARA 

COMMODORE  64 


PRACTICALC  64 


GW 


MANUAL  EN  CASTELLANO 


CONTABILIDAD  64 
PROFESIONAL 


■=S¡ \í\ 


fe! 


P V P 24  550,- 


LAPIZ  OPTICO  Y 
SOFTWARE  GRAFICO 


PROCESADOR  DE  TEXTO 

35  000  caracteres.  240  columnas 
Versión  diskette  2 1 .500.- 
Versión  cartucho  24  900,- 
(grabación  de  documentos  en 
diskette  y cassette) 


HOJA  DE  CALCULO 

2 000  coordenadas 

llunciones  matemáticas,  son.  gráficos  ) 
Versión  cassette  1 5 500.- 
Versión  diskette  17  500.- 


300  cuentas 
3 000  apuntes  por  disco 
Listado  de  diario 
Balance  de  sumas  y saldos 
8 alance  do  situación 
Extractos  de  cuento 
Listado  de  ficheros 
Diario  de  cieñe 
Utilitarios,  etc.. 

EOUIPO  NECESARIO: 
Ordenador  COMMODORE  64 
Unidad  de  disco  : VC  1541 
Impresora:  VC  1525  ó MPS  801 
Monitor  ó T.V. 

ADAPTADO  AL  PLAN  GENERAL  CONTABLE  ESPAÑOL 


Para  conectar  cualQuiet  periférico 
con  protocolo  IEEE  488  (floppys  8050.  8250. 
impresoras  8023.  8024  etc  I 
al  COMMODORE  64 


PV.P  12.500.- 


JOY  STICK  DE 
PRECISION 


BOLETIN  DE  PEDIDO 

Nombre  y dirección: 


22  cuentas 

Listado  por  pantalla  o impresora  de 

los  ingresos  y gastos  de  cada  periodo  definido 


Pulsador  sensüe 
Cable  extra  largo 

Para  CBM  64  VIC  20.  ATAR!  CX  2600  A 


□ Contabilidad  64  (profesional) 

G Contabilidad  doméstica  (cartucho) 

8 Contabilidad  doméstica  (cassette-C  64) 
Contabilidad  doméstica  Icassette-VIC  20) 
G Practícale  G Veawnte 

G Joystick  G Uii.r  óptico 

Q Interface  IEEE  488 
O Información  detallada 


VIZAWRITE 


MANUAL  EN  CASTELLANO 


CONTABILIDAD 

DOMESTICA 

1 cuenta  ingresos 
1 5 cuentas  gastos 

Listados  por  impresora 
y pantalla 

Análisis  porcentual 
Gráfico  de  gastos  por 
pantalla 


VERSION  CARTUCHO 
PVP  14  500,- 


INTER  FACE 
IEEE  468 


CONTABILIDAD 

DOMESTICA 


VERSION  CASSETTE 
para 

C-64  3 500,- 
VIC-20  2 500- 


FORMA  DE  PAGO 

O Adiunto  talón 
laóadir  250  pts 
por  producto  para 
gastos  de  envío) 
Q Contra 
reembolso 


Enviara:  CASA  DE  SOFTWARE  S.A.  Aragón,  272,  8.“  6.°  Barcelona  7 leí  2156952 


c- 


Probé  una  de  las  "recelas  mágicas"  publicadas  en  el  n®  1.  la  de  la 
colocación  en  el  centro  de  la  pantalla  del  VIC.  En  primer  lugar, 
según  indica,  las  direcciones  de  memoria  son  iguales  para  el  con- 
trol horizontal  y vertical  (36864)  de  la  pantalla.  Por  otra  parte  si 
hacemos  un  pokc  con  el  valor  5.  la  pantalla  se  desplaza  a la 
izquierda,  y si  lo  hacemos  con  25.  hacia  la  derecha.  Es  decir,  esta 
posición  sólo  controla  el  centro  horizontal  de  la  pantalla.  Los  valo- 
res correctos  son:  36897  que  controla  la  posición  vertical  y 36896 
que  controla  la  horizontal.  Para  ajustar  la  pantalla  sólo  es  necesa- 
rio incluir  estas  direcciones  de  tal  forma,  en  un  programa,  que  lea 
el  peek  inicial  y este  aumente  o disminuya  según  una  tecla  que  se 
pulse,  con  lo  que  controlamos  la  posición  hacia  arriba,  abajo, 
izquierda  o derecha  según  la  tecla  pulsada. 

Mario  Díaz  Gañán 
Cíe.  Zorita.  25 
Madrid- 20 


PRINT  USING 

Los  que  echen  de  menos  la  existencia  del  comando  PRINT 
USING  en  el  64.  pueden  suplirlo  en  parte  utilizando: 

DEF  FNU(X)=INT(X*  10  t D+.5)/l0  ♦ D 
al  principio  del  programa. 

Cuando  se  quiera  imprimir  A con  2 decimales,  basta  la  siguiente 
sentencia: 

100  D=2:  PRINT  FNU(A) 

Guillermo  Camaño  Olivares 
Arabia!.  11-1'  D 
Granada -5 


Magia 


La  MAGIA  son  trucos,  la  MAGIA 
es  divertida. 

La  MAGIA  es  hacer  lo  que  nadie  se 
ha  atrevido. 

La  MA  GIA  es  una  columna  mensual 
llena  de  consejos,  trucos,  de  esto  y 
aquello  del  mundo  del  software,  hard- 
ware y aplicaciones. 

Cada  mes.  MAGIA  les  trae  trucos 
breves  y útiles  de  informática  proce- 
dentes de  lodo  el  mundo  - trucos  des- 
cubiertos por  los  demás  que  hacen  que 
la  informática  sea  más  fácil,  más 
divertida  o más  animada. 

MAGIA  habla  de  ideas  sencillas, 
programas  de  una  sola  linea,  sub ruti- 
nas útiles,  hechos  de  informática  poco 
conocidos  y otras  cosas  de  interés. 
Buscamos  material  nuevo  o renovado 
que  resulta  ser  de  valor  actual  para 
usuarios  de  equipos  Commodore  y que 
puede  utilizarse  con  un  mínimo  de 
tiempo,  esfuerzo  o conocimientos  teó- 
ricos. 

MAGIA  resulta  ser  la  fuente  más 
completa  de  información  para  la 
informática  práctica,  además  de  ser  un 
foro  internacional  para  compartir  tru- 
cos con  otros  aficionados.  Envíe  sus 
trucos  a: 

COMMODORE  WORLD 
Pedro  Muguruza,  4 
Madrid- 16 

La  revista  "Commodore  World"  sor- 
teará seis  paquetes  de  software  en  julio 
y diciembre  entre  todas  las  contribu- 
ciones publicadas. 


Hola  amigos  de  Commodore  World. 

Me  llamo  Miguel  Luis  Izquierdo  y tengo  13  años. 

Tengo  el  gusto  de  mandaros  esta  carta  para  presentaros  un  par  de 
curiosidades  Pokes  para  el  VIC-20. 

El  primero  hace  de  las  teclas  del  VIC.  teclas  repetitivas 

POKE36987,  121. 

Y el  segundo  mucho  más  útil  es  capaz  de  controlar  la  velocidad 
del  cursor,  cuanto  mayor  sea  la  cifra  de  después  de  la  coma,  más 
lento  se  desplazará  y si  ponéis  una  cifra  muy  baja  como  12  ó hasta 
1 podrá  coger  velocidades  de  espacio. 

También  es  muy  útil  para  juegos  ya  que  poniéndolo  en  la  moda- 
lidad I aquellos  juegos  que  no  lográis  dominar  los  tendréis  a 
"cámara  lenta"  y los  juegos  que  sean  anticopias  tendréis  que  car- 
garlos y sin  necesidad  de  añadirlos  al  programa  ni  ponerles  número 
de  linea,  bastará. 

POKE36983.I  para  juegos  y según  cambiéis  la  cifra  para  control 
del  cursor. 

Mi  teléfono  es  el  729  39  82.  San  Modesto.  46.  Madrid. 

P.D.:  Soy  el  hijo  de  José  Antonio  Izquierdo,  socio  del  Club 
Commodore  World. 


Miguel  Luis,  publicamos  tus  trucos  en  esta  sección, 
pero  siento  tener  que  decirte  que  el  primero  de  los  dos 
sólo  funciona  algunas  veces,  el  POKE  correcto  para 
hacer  repetitivas  todas  las  teclas  es  POKE650.255. 
Respecto  al  segundo  POKE  es  correcto  y funciona  muy 
bien,  sigue  enviando  todos  los  trucos  que  descubras  y 
los  publicaremos. 
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AUTO-RUN 

Poniendo  estas  dos  lineas  al  final  de  un  programa,  por  ejemplo 
un  cargador  de  caracteres  propios,  hacen  que  se  cargue  automáti- 
camente el  programa  que  sigue  en  la  cinta  y lo  empiece  a rodar  sin 
necesidad  de  hacer  I0AD  v RUN. 

5HIH)  POKE  198.  7:  POKE  631.76:  POKE632.207: 

POKF.633. 159:POKE634.l3 
5010  POKE  635.82:  POKE636.213:POKE637.13 

Angel  León  Negrín 
Edificio  Ahemon  Por  ion  3 Bajo  A 
Polígono  de  Ofra 
Sania  Cruz  de  Tenerife 


EL  VIC  PATRIOTA 

Soy  un  suscriptor  de  la  revista  Commodorc  World,  y quiero 
aportar  mi  granito  de  arena  enviándoles  el  programa  de  una  línea 
en  la  sección  de  MAGIA  por  si  les  parece  bien  publicarlo: 

I PRINT(CLR):POKE  36879.4LFOR  A =4228  TO  4469:POKE 
A.I02:POKE33792+A,7:NEXT:FOR  B=IT02 *99:NEXT 
Está  hecho  en  un  VIC-20  con  más  de  8 K:  si  tuviéramos  menos, 
sólo  hay  que  sustituir  los  números  :4228.4469  y 33792  por 
7812.8053  y 34304  respectivamente  su  longitud  es  de  66  bvtcs  y 
construye  la  Bandera  española. 

Fdo.  Federico  Iborra  Abargues 
C/  Comándame  Zorita.  8 
Madrid-20 


NADA  POR  AQUI...  NADA  POR  ALLA... 

Y AQUI  APARECE  LA  LINEA 

Pulsando  la  tecla  (shift)  o (comm.)  junto  con  la  tecla  inst/dcl.asi 
durante  un  poco,  soltaréis  la  tecla  shift  y veréis  cómo  aparece  una 
en  inverso  de  color.  Colocando  este  signo  tantas  veces  como  carac- 
teres haya  en  la  linea,  contando  el  número  de  lineas  conseguiréis 
que  esta  linea  desaparezca  del  listado.  Deberéis  colocarlo  con  un 
Rem.  abriendo  comillas  pero  no  cerrándolas,  porque  si  no  estas 
comillas  aparecerán  en  el  listado. 

La  forma  de  poder  destruir  ésta  te  será  aplicando  este  pequeño 
programa  pero  sin  número  de  lincas. 

EOR  1=4096  TO  7679:PRINT  I.  CURSI PEEK(I)):NEXT  I 

Cuando  os  encontréis  unas  comillas  con  un  corchete  en  inversor 
de  color,  rectifico  varios  corchetes  en  inverso.  Puede  que  haya 
delectado  un  PRINT  o un  REM  anteriormente  nombrado.  Si  creéis 
que  es  un  REM  hacer  un  POKE  con  el  número  que  habia  a su 
izquierda,  es  decir  POKE  número.  0.  Si  era  un  REM  veréis  lo  que 
habla  escondido,  pero  si  era  un  PRINT  perderéis  lo  que  habia  entre 
comillas.  Se  me  olvidaba  para  descubrirlo  veréis  un  parpadeo  en  la 
pantalla. 

VIC-20 

Emilio  Rocaforl  Riaza 
Urbanización  Torres  San  Lamberlo 
Chalet  n“  17  A 
Zaragoza 


ENCABEZAMIENTO  DE  LISTADOS 
Se  puede  encabezar  un  listado  añadiendo  una  primera  linea 
REM.  seguida  esta  sentencia  de  6.  7 u 8 Tes  invertidas  y la  frase  de 
encabezamiento.  Para  obtener  las  Tes  es  preciso  pulsar  comillas, 
horrarlas,  pulsar  SHIFT  e INST-DEL  6.  7 u 8 veces,  volver  ante  las 
comillas  (SIN  BORRARLAS)  y pulsar  solamente  INST-DEL  otras 
6.  7 u 8 veces.  No  cerrar  las  comillas,  pues  si  no  aparecerían  en  el 
encabezamiento.  Ejemplo: 

10  REM"(7INST-DEL)  encabezamiento  listado 
20  print"(CLR)" 

Al  lisiar  el  programa  quedaría  asi: 

ENCABEZAMIENTO  LISTADO 
20  PRINT'(CLR)" 

Carlos  López  Benavenie  1 4 años. 
Pl.  Sanloña 
Edif.  Constanza 
Murcia-6 


DESPROTEGER  PROGRAMA 

En  ocasiones  el  VIC-20  no  refleja  en  el  listado  lo  que  se  encuen- 
tra en  su  memoria  interna.  Por  este  motivo  al  correr  el  programa 
nos  dará  error.  Cuando  ocurre  este  incidente  se  vuelve  a escribir  la 
linea  tal  y como  está  y desaparecerá  la  nota  de  error. 

Andrés  Pozo  (Bilbao) 
(Mándanos  dirección) 

;QUE  HORA  ES? 

He  aqui  un  pequeño  programa  que  puede  resultar  práctico.  Se 
trata  de  un  modelo  de  reloj  digital  con  el  cual  se  puede  por  ejem- 
plo. medir  las  pulsaciones  por  minuto. 

Cambiando  la  velocidad  del  tiempo  (T).  se  puede  conseguir  un 
margen  de  error  menos  grande,  según  el  tiempo  que  se  desee  medir 
10  PRINT  ”5)  • 

20  FOR  HO=0  TO  24 
30  FOR  MIN=0  TO  59 
40  FOR  SEG=0  TO  59 

50  PRINT  HO,MIN,SEG:FOR  T=  I TO  900:NEXT 

60  NEXT:NEXT:NEXT:NEXT 

Siendo  <?  las  teclas  “SHIFT'  y "CLR/HOME") 

Con  cuatro  bucles,  insertados,  se  presenta  el  esquema  de  este 
programa,  siendo  el  mayor  para  las  horas,  y los  contenidos  para 
minutos  y segundos,  junto  con  el  más  pequeño  que  controla  la 
velocidad  de  tiempo. 

Por  favor,  escribir  sólo  Diego  Morales  (Huesca) 

(Felicidades  por  la  revista,  es  muy  buena). 


...Y  SEGUIMOS  DE  HORARIO... 

Cuando  le  preguntamos  al  VIC  20  la  hora,  éste  nos  la  expresa  de 
una  manera  a la  que  no  estamos  acostumbrados  a ver  en  ios  relo- 
jes. sin  diferenciar  horas,  minutos  y segundos. 

En  la  linea  que  os  expongo  a continuación,  intercalo  dos  puntos 
entre  los  espacios  de  horas-minutos  y minutos-segundos. 

100  PRINT  “(HOME)"MID$(TI$.l.2)":"MID$(TlS.3.2)": 

”RIGHTS(TIS.2):GOTO  100 

Luis  Casi  Gil  (Barcelona) 
C/  La  Palma,  9 Emlo.  4.  ‘ 
Barcelona-4 


BLOQUEO  DE  RUN/STOP  Y RESTORE 
VIC-20 

Me  llamo  José  de  la  Fuente  y tengo  16  años.  Creo  que  su  revista 
es  fenomenal. 

Espero  que  su  revista  siga  publicándose  para  que  las  personas 
que  utilizan  ordenadores  COMMODORE  puedan  disfrutar  de  esta 
fenomenal  revista. 

Como  piden  colaboraciones  les  mando  este  pequeño  truco  para 
que  si  creen  conveniente  lo  publiquen. 

La  linca  que  doy  a continuación,  se  puede  teclear  directamente  o 
introducirla  al  principio  del  programa. 

Se  utiliza  para  el  bloqueo  de  RUN/STOP  y RESTORE. 

Una  vez  puesto  RUN  la  única  forma  de  parar  el  programa  es 
desconectar  el  aparato. 

POKE  37l5().2:POKE  788.194 

El  primer  POKE  anula  la  tecla  RESTORE  y el  segundo  POKE 
anula  la  tecla  RUN/STOP. 

José  de  la  Fuente  (Barcelona) 
Tel.  (93)  243  II  41 
PU  BOX.  22.204 
16  años 


NUMEROS  PRIMOS 

"La  rutina  indicada  a continuación  se  encarga  de  seleccionar  los 
números  primos  comprendidos  en  el  intervalo  numérico  que  se 
indique  desde  el  teclado.  Se  debe  introducir  primero  el  limite  infe- 
rior y a continuación  el  superior." 

1 PRINT'NOS  PRIMOS  DESDE  . " INPUT  A '7  PRINT 
“HASTA  . ":INPUT  B'7  :IF  Ar<>B' ! THEN  I 

2 FOR  I=A<-,  TO  B<T:IF  1=1  OR  1=2  THF.N  7 
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C' 

3 C=l  5:D=INT(C):IF  C-D=0  THEN  8 

4 FOR  J=2 TO  D 

5 IF  l/J-INT(l/J)=0  THEN  8 

6 NEXT J 

7 PRINT  I. 

8 NEXT  I 

Rafael  García  Segura 
A vda.  Barcelona.  40  - 2° 
Málaga-i 


INSTRUCCION  DIRECTA 

Para  control  de  juegos  es  habitual,  en  lugar  de  GET,  usar  el 
contenido  de  la  posición  197.  para  detectar  qué  tecla  se  está  pul- 
sando. en  el  VIC  o en  el  64. 

Para  ello  pruebe  la  siguiente  linca,  en  modo  directo: 

FOR  A=  I TO  KHIO  PRINT  PEF.K<  I97).NEXT 

Pulse  RETURN  y a continuación  pulse  varias  teclas,  cada  una 
dará  un  valor  distinto,  que  puede  usar  en  una  condición  IF 
PEEK(I97)=»H...  y tendrá  un  control  continuo  y directo  del 
teclado  sobre  el  programa.  La  linea  FOR  en  modo  directo  nos 
permitirá  además,  observar  el  contenido  de  cualquier  posición  de 
memoria  y su  variación,  durante  unos  segundos  sin  afectar  para 
nada  al  programa  que  tengamos  introducido  en  este  momento. 

tráncese  A.  Caslanyer  P. 
C/  Queretaro.  .5.  E-2‘.  2 ’ D 
Palma  de  Mallorca.  7 
Baleares 


Queridos  conVICcinos: 

Os  mando  un  truqui  para  la  sección  magia,  no  sé  si  ya  lo  sabe 
todo  el  mundo  y estoy  pasándome  de  listo  pero  si  os  parece  que  no 
vale  la  pena  pues  al  cubo.de  archivo. 

Cuando  se  redefine  en  RAM  el  generador  de  caracteres  con 
caracteres  propios,  etc.,  se  pierde  en  caso  de  listar  el  centelleo  del 
cursor  siendo  muy  complicado  el  distinguir  por  donde  anda 
cuando  está  entre  las  lineas  del  listado,  el  truco  es  cambiar  su  color 
a negro  por  ejemplo  con  (CTRL-BLACK)  siempre  que  el  color  de 
pantalla  no  sea  negro. 

José  Luis  Lozano 
Rambla  Justo  Oliveras.  SI.  4"  I 
Hospitalet 
I Barcelona ) 


COSA  DE  MAGIA 

En  un  alarde  de  virtuosismo,  sitúe  la  revista  a modo  de  partitura 
frente  al  VIC.  enciéndalo  y teclee: 

POKE  56.PEEK(44):SYS  58234  [RETURN] 

No  se  responde  de  FRE(O) 

Para  volver  a la  realidad  use  SYS  64802  [RETURN]  o apague  y 
váyase. 

Si  aún  está  ahí.  apague,  encienda  de  nuevo,  y a continuación 
ponga  lo  siguiente: 

POKE  43.0: POKE  56.PEEK(44):SYS  58234  [RETURN] 

Un  consejo:  No  se  crea  nada  de  lo  que  vea  en  pantalla. 

Frúncese  Caslanyer  P. 

C/  Queretano,  5,  E-2.‘.  2 D 
Palma  de  Mallorca.  7 
Baleares 


NOTICIAS 

COMMODORE  WORLD 
El  Club  Aloiz  de  nuevo  con  nosotros 


El  Club  Alaiz  no  deja  de  moverse  y 
avanzar. 

Según  la  información  que  nos  envían 
periódicamente  entre  los  diversos  servi- 
cios y actividades  que  ofrece  a los  asocia- 
dos figuran  la  realización  y prácticas  en 
ordenadores  personales,  intercambio  de 
programas  y experiencias  no  sólo  entre 
ellos  sino  también  con  otros  clubs  de  pro- 
gramación o personas  particulares,  una 
amplia  biblioteca  de  manuales  y revistas 
especializadas  para  su  uso  y consulta, 
programoteca  formada  a base  del  trabajo 
y la  investigación  de  los  mismos  asocia- 
dos. cursos  de  iniciación  y avance,  infor- 
mación sobre  los  diversos  equipos  que 
pueden  encontrarse  en  el  mercado,  visitas 
a instalaciones  y centros  de  cálculo,  confe- 
rencias con  especialistas  y consultas 
varias. 

El  Club  viene  impartiendo  desde  hace 
varios  meses,  cursos  de  iniciación  al  len- 
guaje BASIC  utilizando  para  ello  tres 
equipos  VIC-20  y un  COMMODORE-64 
con  diversos  periféricos,  gracias  a la  cola- 
boración de  Comercial  Noain. 

Como  resulta  lógico  tratándose  de  un 
Club  de  reciente  creación,  se  encuentra 
abierto  a todo  tipo  de  ayudas  o intercam- 
bios de  experiencias  y programas. 


Nos  dicen  que  han  elaborado  ya  algu- 
nos programas  propios  originales,  y que 
aunque  está  dirigido  principalmente  a 
estudiantes  de  BUP  y COU.  van  a comen- 
zar próximamente  unos  cursos  de  inicia- 
ción para  profesionales,  base  para  otras 
posibles  extensiones  en  el  futuro. 

Esperamos  que  nos  envíen  bien  pronto 


Club  Alaiz 


algunos  de  estos  estupendos  programas  a 
fin  de  poder  compartir  con  el  gran  Club 
Nacional  Commodoriano  de  todos  nues- 
tros lectores  sus  experiencias. 

La  sede  del  Club  de  Programación 
Alaiz  está  sita  en  la  plaza  Monasterio 
Santa  Gemma  s/n.  Pamplona.  Teléfonos: 
25  44  80/25  77  04. 
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TOMO 

Y 

LOMO 


Según  prometimos  en  núes-  mación  sobre  los  ordenado- 
tro  último  número  hemos  res  PETS.  La  literatura  exis- 
iniciado  la  búsqueda  de  infor-  temes  sobre  este  tema  es  muv 


la  pratique  du 

P.E.T./C.B.M. 


la  pratique  du  } 

P.E.T./CJLM. 


escasa,  pero  nuestros  héroes 
han  intentado  por  todos  los 
medios  cumplir  con  su  misión. 
Lo  único  que  os  podemos 
ofrecer  de  momento  son  cua- 
tro publicaciones,  y además 
en  francés!!!  No  os  podemos 
presentar  aqui  un  análisis 
detallado  de  estos  libros  por 
no  haber  tenido  el  tiempo 
suficiente  para  estudiarlos  a 
fondo,  pero  aparecerá  en  el 
próximo  número.  Los  distri- 
buye P.S.I.  Ibérica.  Ferraz. 
11-3°,  Madrid.  8.  teléfono: 


la  décooverte 

tíicii. 


c- 


(91)  247  30  00.  Los  pre- 
cios y los  títulos  son:  "Clefs 
pour  le  P.E.T./C.B.M."  = 
1.700  peetas,  “La  Pratique 
du  P.E.T./C.B.M.  Volume  1- 
Pcrphcriques  el  Gestión  des 
Fichiers"  = 1.450  pesetas, 
"La  Pratique  du  P.E.T./C.B.M. 
Volume  1 1 - Langage  machine 
et  assembleur  du  6502"  = 
1.700  pesetas,  "La  decouverte 
du  P.E.T./C.B.M."  = 1.450 
pesetas.  El  autor  de  los  cua- 
tro libros  es  Daniel-Jcan 
David. 


CLEFS  POUR  \ 
LE  PE.T.  C.B.M. 

Danid-Jean  David  / 


Editions  du 


MICRO  INFORMATICA  Y SOFT,  S.A.  (M.I.S.S.A.) 

PRESENTA 
ACTUAN:  5 JUEGOS  5 

PEDRO:  (Cuando  no  tiene  que  proteger  sus  flores  de  los  ataques  de  los  animales  y 

los  vagabundos.) 

EL  SUPER  DETECTIVE:  (Sólo  los  domingos,  por  ser  el  día  en  que  no  trabaja  en  el  almacén  ocupán- 
dose de  los  cacos,  los  niños  perdidos,  y las  bombas.) 

EL  CAMARERO  LOCO:  (Sólo  en  días  de  fiesta,  ya  que  los  demás  se  dedica  a no  perder  su  empleo 

en  el  hotel  peor  organizado  del  mundo.) 

HECHIZADO:  (Si  consigues  “deshechizarte”  a lo  mejor  tú  también.) 

ARCADIA-64:  (Con  la  nave  estrella  más  potente  bajo  tu  control  puedes  hacer  lo  que  se  te 

antoje,  si  no  te  vence  Mordread,  claro.) 

COPYRIGHT:  IMAGINE  SOFTWARE  LIMITED. 

(ESTE  CARTEL  NO  ES  PARA  TURISTAS:  AQUI  DECIMOS  TODO  EN  ESPAÑOL) 

VENTA  SOLAMENTE  POR  CORREO 


BOLETIN  DE  PEDIDO 


INCLUYO  CHEQUE  NOMINATIVO  (M.I.S.S.A.)  POR 
pesetas. 

PAGARE  CONTRA  REEMBOLSO  LA  CANTIDAD  DE 
pesetas. 

MAS  1 50  pesetas  de  gastos  de  envío  (de  1 a 5 cassettes). 
ENVIAR  A:  M.I.S.S.A.  MAESTRO  CHAPI,  15.  MADRID-16 


NOMINATIVO  (M.I.S.S.A.)  POR 


NOMBRE  

CALLE  N°  . 

POBLACION  DP 

PROVINCIA  TEL 


DESEO  RECIBIR  LOS  SIGUIENTES  PROGRAMAS: 

EL  CAMARERO  LOCO  (VIC-20) Precio  1 .725  ...  □ 

EL  SUPER  DETECTIVE  (VIC-20) Precio  1 .725  ...  □ 

HECHIZADO  (VIC-20) Precio  1.825  ...□ 

ARCADIA-64  (C-64) Precio  2.125  ...  □ 

PEDRO  (C-64) Precio  2.350  ...  □ 
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CARTA  BLANCA 


He  de  felicitaros  por  la  nueva  revista  que  he 
recibido.  Pienso  que  ha  mciorado  bastante, 
respecto  a la  anterior.  Lei  en  el  número  II  de 
C'ommodorc  World  que  a los  que  les  faltara  los 
tres  últimos  números  os  escribiera.  También  lei 
que  en  esta  nueva  revista  junto  con  la  vieja. 
Pere  Masats  ha  ayudado  a que  la  revista  mejo- 
rara constantemente  y por  eso  le  doy  las  gra- 
cias MUCHAS  GRACIAS.  PERL  MASATS. 


Espero  que  la  revista  siga  igual  de  bien  que 
ahora  y que  vaya  mejorando  constantemente. 

EMILIO  ROCAFORT  RIAZA 
URBANIZA  Cl  ON  TORRES  SAN  LAMBERTO 
CHALET  N"  17- A 
ZARAGOZA 

Pasamos  el  truco  que  nos  envías  a Magia... 
y sigue  enviando  piropos. 


El  Director  General  de  Microelectrónica  y Control.  D.  Car- 
los Domenech.  nos  ha  remitido  la  siguiente  carta  para  su 
publicación. 

Señor  Director: 

Nos  ha  producido  sorpresa  y preocupación  la  publica- 
ción en  cl  n'1  3 de  la  carta  de  D.  Artemio  González  como 
"CARTA  DEL.  MES",  y casi  diria  que  nos  ha  dolido  más 
todavía  la  contestación  y cl  comentario  sin  firma  que  añade 
la  revista. 

A través  de  nuestro  distribuidor  en  Tenerife,  conocemos 
al  Sr.  González  y sabemos  que  es  un  gran  entusiasta  del 
lema  “microordenadores",  un  asiduo  lector  del  Club 
Commodore  v un  buen  amigo.  El  Sr.  González  tiene  efecti- 
vamente UNA  CPU  COMMODORE.  PERO  NO  UN 
EQUIPO  COMMODORE:.  ya  que  la  Unidad  de  Discos  que 
él  acoplo  es  COMPUTHING  v la  impresora  es  CENTRO- 
NICS. 

Eos  más  antiguos  de  la  familia  COMMODORE  saben 
perfectamente  que  dicha  unidad  de  discos  no  ha  sido  nunca 
comercializada  por  MICROELECTRONICA  Y CON- 
TROL. S.A..  es  incompatible  en  Software  con  las  unidades 
de  disco  de  COMMODORE  y consecuentemente  con  cl 
Software  de  MICROELECTRONICA  Y CONTROL.  A 
los  pocos  que  están  en  una  situación  parecido  a la  del  Sr. 
González  les  ayudaremos  con  nuestra  mejor  voluntad,  pero 
sólo  en  la  medida  que  nos  permita  nuestro  remoto  conoci- 
miento de  unos  periféricos  que  no  son  nuestros. 

Permítanos  insistir.  Sr.  Director,  en  la  necesidad  que 
tiene  todo  redactor  de  estar  muy  bien  informado  para  evi- 
tar emitir  falsos  prejuicios,  aunque  los  emita  de  buena  fe. 
Como  les  hemos  dicho,  la  contestación  de  su  revista  a la 
carta  nos  ha  dolido  y adolece  la  falta  de  información. 

Atentamente. 

MICROEI  ECTRONICA  Y CONTROL.  S.  A. 


Estimado  amigo: 

Gracias  por  su  carta  que  reproducimos  integramente 
y a la  que  le  ruego  me  permita  contestar. 

Creemos  que  generalmente  intentamos  estar  bien 
informados  (salvo  posible  error  humano  al  que  todos 
estamos  sujetos).  En  varias  ocasiones  hemos  recibido 
un  par  de  cartas  "peligrosas"  que  afectaban  a distri- 
buidores y que  hemos  comprobado  con  ambas  partes 
implicadas  deshaciendo  el  entuerto  ya  que  en  ambos 
casos  se  trataba  de  un  malentendido. 

Es  cierto  que  D.  Artemio  González  no  nos  especifi- 
caba en  su  carta  las  "peculiaridades"  de  su  equipo,  y 
que  nosotros  no  realizamos  ninguna  comprobación  pre- 
via a su  publicación  por  varias  razones. 

I )  El  problema  que  este  lector  nos  exponía  no  es  una 
originalidad  — ni  nosotros  lo  consideramos  un  insulto  a 


Commodore  ni  a Microelectrónica  y Control — ya  que 
es  común  a los  primeros  modelos  de  la  mayoría  de  las 
marcas:  la  literatura  está  agotada  o es  insuficiente;  el 
soft  está  agotado  y a las  casas  de  sofl  les  es  ruinoso  su 
reedición;  etc.,  etc. 

2)  Asimismo,  tampoco  es  una  situación  especial  "a  la 
española"  ya  que  es  idéntica  a la  de  cualquier  otro  país. 
En  los  colegios  británicos  en  que  tienen  equipos  "anti- 
guos" tienen  que  montarse  su  propio  tinglado  (y  es 
donde  de  verdad  los  chiquillos  aprenden  a desarrollar  el 
ingenio  y a "destripar"  un  ordenador)  por  la  falla  de 
material  auxiliar. 

3)  La  carta  publicada  fue  una  de  tres  que  nos  llega- 
ron sobre  el  mismo  lema  — razón  por  la  que  se  llamó 
"Carta  del  Mes",  al  igual  que  la  que  hoy  publicamos  es 
haciéndonos  eco  de  bastantes  quejas  similares  que 
hemos  tenido — tanto  por  carta  como  por  teléfono. 

Lamento  que  le  haya  dolido  nuestra  contestación  ya 
que  creemos  haber  sido  siempre  altamente  respetuosos, 
tanto  con  Commodore  en  general,  como  con  Microe- 
lectrónica y Control  en  particular.  Si  no  estuviéramos 
convencidos  de  la  seriedad  y profesionalidad  de  la  casa 
Commodore  no  estaríamos  publicando  una  revista 
dedicada  exclusivamente  a sus  productos. 

En  la  contestación  a la  carta  publicada  de  I).  Arte- 
mio González,  deciamos  claramente  que  esta  situación 
no  era  peculiar  de  la  casa  Commodore.  sino  — textual- 
mente— "es  la  misma  que  la  de  todos  los  equipos  pio- 
neros de  cualquier  otra  firma  de  ordenadores".  Igual- 
mente deciamos  en  nuestra  contestación,  que  habiendo 
hablado  con  Microelectrónica,  nos  habían  dicho  que 
"atenderán  todas  las  consultas  (...)  e intentarán  ayudar 
en  todo  lo  que  puedan". 

Finalmente,  quisiera  hacer  una  aclaración  sobre  la 
responsabilidad  de  los  comentarios  o contestaciones  a 
las  cartas  de  los  lectores. 

El  responsable  de  las  contestaciones  o aclaraciones 
técnicas  y profesionales  es  nuestro  director  técnico.  I). 
Diego  Romero.  Los  comentarios  de  tipo  general,  asi 
como  las  notas  editoriales  que  aparecen  generalmente 
en  la  página  4 son  responsabilidad  directa  mia. 

lia  sido  nuestra  intención,  desde  el  principio,  dar  a 
la  revista  un  espíritu  de  equipo  y de  gran  familia,  y 
como  tal  se  está  funcionando,  razón  por  la  que  se  ha 
evitado  el  nombre  de  Director.  Editor  o Redactor  Jefe 
que  implica  automáticamente  una  jerarquía,  y se  ha 
optado  por  el  de  coordinador  que  es  un  papel  más  anó- 
nimo. pero  más  cordial  y acorde  con  ese  espíritu  y cl 
que  honestamente  creo  estar  desempeñando. 

Espero  que  estas  lineas  desvanezcan  cualquier  mal- 
entendido que  haya  podido  producirse  en  nuestra  ante- 
rior contestación. 

Un  cordial  saludo. 

María  Lopez-Morán. 
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VIC-20  ó C-64 

1.0  primero,  felicitaros  por  vuestra  revista. 

Tengo  un  Commoüore  VIC-20.  y estoy  pen- 
sando en  cambiarlo  por  un  C-64.  ya  que  el  VIC 
es  un  poco  pequeño  en  su  memoria,  me  gustaría 
que  me  aconsejarais  sobre  este  cambio 

También  me  gustaría  que  me  dijerais  si  los 
textos  de  instrucciones  de  los  programas  en  car- 
tucho. están  traducidos  al  español,  s si  es  asi 
dónde  conseguirlos 

Respecto  a sugerencias  sólo  tengo  una.  ya 
que  la  revista  roza  la  perfección.  Yo  he  pensado 


que  se  podría  formar  una  sección  sobre  pro-  • 
gramas  educativos,  a nivel  de  enseñan/a  media 
y superior. 

En  otro  orden  de  cosas,  también  estoy 
haciendo  un  programa  de  megos,  si  os  hacen 
falta  cuando  lo  termine  os  lo  mando. 

GUSTAVO  AVALA  LOPEZ 
AIDA  STA.  COLOMA.  35 
STA.  COLOMA  DE  GRAMAS  El 
BARCELONA 

Indudablemente  el  C-64  está  reconocido 
en  todo  el  mundo  como  uno  de  los  mejores 


personales  y con  el  que.  con  un  poco  de 
paciencia  se  pueden  hacer  virguerías.  I.a 
decisión  debes  lomarla  tú  mismo,  pero...  si 
crees  que  el  VIC  se  te  queda  corlo. 

Casi  lodos  los  programas  en  cartucho 
traen  instrucciones  en  inglés.  No  hay  reglas. 
Cada  firma  comercialiradora  actúa  a 
voluntad.  F.l  tema  de  programas  educativos 
es  un  lema  que  nos  interesa  enormemente  y 
al  que  queremos  dedicarnos  bastante  a 
fondo.  De  momento  no  es  tarea  fácil  por  lo 
poco  desarrollado  que  está  el  tema  aquí  en 
f spaña.  Si  lees  el  editorial,  verás  que  en  el 
próximo  número  anunciaremos  las  bases  de 
un  importante  concurso  escolar  cuya  finali- 
dad principal  es.  precisamente  el  desarrollo 
de  la  informática  educativa. 

Esperamos  tu  programa 

l.os  siguientes  commodorianos  desean  todo 
upo  de  información  sobre  libros  especializados, 
programas,  cintas,  video-juegos,  precios,  etc., 
para  el  VIC-20. 

GABRIEL  MONTO HU  ROCA 
CAI  DI  RS  140  PISO 
SABADELI 


1 1 UIS  MIGUI I VERDU 
C/M Al  TORCA.  132.  3-1 
BA  RCEI.  ONA-36 

VICENTE  MARTIN  JUANES 
C/ ANTONIO  DE  LA  CODENA.  4.  4 • 
PEAS  ENCIA 


XAVIER  PRAT!  BURDO 
C/RABAI  STA  EULAl  LA  S/N. 

STA  MARIA  DOLO  IB  AGES) 
BARCEL  ONA 

Comerciantes  y distribuidores  molestaros  y 
enviar  información  a ellos  y a nosotros. 

EN  CINTA...  EN  CINTA...  POR  FAVOR 

Ante  todo  quiero  mandaros  un  saludo,  y 
manifestaros  el  gran  acierto  que  habéis  tenido 
con  nuestra  revista  “Commodorc  World"  y asi 
como  un  recuerdo  a nuestra  entrañable  "Club 
Commodorc".  sin  la  cual  no  hubiera  sido  posi- 
ble su  existencia.  Y ahora,  sin  más  preámbulos, 
paso  a comentaros  varias  cosas. 

Quisiera  pediros  que  en  próximas  ediciones 
dediquéis  algún  articulo  a los  Spritcs:  Cómo 
crearlos,  cómo  hacer  que  varios  distintos  apa- 
rezcan en  pantalla,  cómo  hacer  que  se  detengan 
en  un  lugar  determinado  de  la  misma  para 
poder  combinarlos  creando  un  dibujo  mayor, 
etc.,  ya  que  el  Manual  del  Usuario  del  C-64 
(que  es  el  que  poseo)  es  bastante  deficitario  en 
este  aspecto,  no  estando  bien  explicando  en 
muchos  puntos,  lo  cual  ha  hecho  que  tenga 
muchos  problemas  para  su  creación  y encade- 
nación a un  programa. 

Y ya.  por  último,  quiero  indicaros  que  me 
gustaría  mucho  poder  mandaros  colaboracio- 
nes. pero  tropiezo  con  el  inconveniente  que  no 
dispongo  de  impresora,  por  lo  que  sólo  podría 
mandaros  el  programa  en  cinta,  no  en  listado 
Espero  que  en  vuestra  contestación  me  indi- 
quéis si  los  puedo  enviar  o no  de  esa  forma. 

Bien,  ya  sólo  me  queda  despedirme  hasta 
otra.  Un  abrazo. 

ANTONIO  SANCHEZ  AGÜELO 
C/POLIT.  14 
ELCHE 
ALICANTE 

Ya  hemos  dedicado  algunos  artículos  a 
los  Sprites  y en  este  número  sale  otro 
"Anímate  con  los  Sprites" 


CARTA  DEL  MES 

Soy  suscriptor  de  la  revista  "Commodore  World"  desde  su  primer  número. 
Mi  sorpresa  ha  sido  el  ver  los  listados,  o mejor  dicho  el  no  verlos,  ya  que  la 
impresión  es  tan  pequeña  que  ha  sido  necesaria  una  lupa  para  poder  seguirlos, 
además  de  algo  de  conocimientos  e imaginación  para  suponer  algún  que  otro 
signo,  punto  y coma,  dos  puntos... 

Una  de  las  cosas  que  más  me  gustó  en  el  primer  número  y me  decidió  a la 
suscripcón.  fue  la  claridad  de  los  listados.  Ya  no  puedo  retirar  mi  suscricpión. 
pero  si  los  listados  siguen  asi.  es  seguro  que  no  la  renovaré. 

Me  parece  muy  bien  que  quieran  vender  cintas  con  los  programas  que  se 
publican  en  la  revista  y aunque  el  precio  me  parece  un  poco  caro,  quizás 
alguna  vez  pida  alguna,  pero  si  pretenden  obligar  a la  gente  a comprar  las 
cintas  haciendo  los  listados  ilegibles,  creo  que  van  por  mal  camino. 

Pasando  a otro  tema,  quisiera  hacer  un  par  de  sugerencias,  la  primera 
consiste  en  que  seria  interesante  la  publicación  de  un  índice  detallado  de  todos 
los  temas  aparecidos  en  los  15  números  de  "Commodore  Club”,  asi  como  un 
indice  anual  de  "Commodorc  World",  ya  que  no  siempre  es  fácil  encontrar  un 
articulo  determinado.  También  considero  muy  útil  la  publicación  de  una  sec- 
ción de  “Fe  de  erratas"  mejor  que  esos  pequeños  recuadros  del  "Bus"  que  a 
veces  se  traspasan  entre  las  hojas. 

La  segunda  sugerencia  se  refiere  al  juego  "Tiro  al  Blanco"  en  su  versión  Vic 
20  y publicado  en  el  número  uno.  F.l  juego  funciona  bien,  sólo  que  es  muy 
aburrido  debido  a su  lentitud  que  lo  hace  desesperante,  por  lo  que  le  he- 
añadido  una  linea  de  programa  que  lo  convierte  en  un  juego  mucho  más 
interesante,  se  trata  de  la  siguiente: 

395  POKE  37879.  5 

Espero  que  al  menos  consideren  estas  sugerencias,  sobre  todo  la  de  los 
listados,  ya  que  creo  que  marcará  la  diferencia  entre  una  gran  revista  y unas 
hojas  sin  apenas  valor. 

Les  saluda  atentamente. 

JUAN  CARLOS  GARCIA  ALCARAZ 
C/OBISPO  ORBERA.  37-7-1 
ALMERIA 

En  nuestras  notas  editoriales  del  pasado  número  ya  aclarábamos  que 
para  una  máxima  garantía  de  corrección  en  los  listados  de  los  programas, 
estos  no  los  pasamos  por  composición  de  imprenta  sino  que  los  reproduci- 
mos directamente  de  la  copia  de  la  impresora. 

En  nuestro  número  — 2 — de  marzo,  debido,  quizás,  a un  malentendido 
con  maquetismo  e imprenta,  redujeron  indebidamente  la  reproducción.  Ya 
se  tomaron  medidas  para  que  esto  no  vuelva  a suceder  y,  como  ya  habréis 
visto  en  el  número  — 3—  de  abril,  este  problema  está  subsanado,  pues 
ahora  se  lista  un  formato  en  impresora  para  reproducir  directamente  a 
tamaño  de  columna  y media. 

Con  la  venta  de  cintas  no  se  pretende  hacer  un  negocio  sino  dar  un 
servicio  extra  al  lector  que  lo  desee.  Ha  sido  una  pura  y desafortunada 
coincidencia  que  este  servicio  comenzara  a anunciarse  en  ese  n9  2. 

Gracias  por  la  sugerencia  de  los  índices.  No  se  nos  había  ocurrido  pero 
es  una  gran  idea.  Pediremos  permiso  a MF.C  para  confeccionar  un  índice 
de  la  colección  de  "Club  Commodore".  En  lo  que  se  refiere  a Commodore 
World,  teníamos  previsto  la  preparación  de  unas  tapas  anuales  para  colec- 
cionar la  revista,  por  lo  que  recogemos  tu  sugerencia  de  añadir  un  índice 
anual  a las  mismas. 

I.a  sección  "Meteduras  de  pata",  “comenzada"  en  el  número  3 creo  que 
responde  a tu  sugerencia  de  "Fe  de  Erratas". 

Finalmente,  gracias  por  la  mejora  de  "Tiro  al  Blanco”. 
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PR€GUNTON€S  C' 


Preferimos  que  nos  envíes  las  colabora- 
ciones en  cima:  eslo  nos  facilita  el  trabajo 
de  comprobación  y listado,  o sea.  que  tu 
problema  no  es  problema  sino  todo  lo  con- 
trario. 


¿SPRITES  EN  EL  VIC? 

I na  petición:  Me  parece  que  seria  interesante 
algo  referente  a otros  lenguajes  para  VIC.  tengo 
entendido  que  existe  un  FÓRTH  (¿cómo  con- 
seguirlo?) 

Una  pregunta:  ¿Es  posible  definir  de  algún 
modo  un  Spritc  en  el  VIC’  Véase  el  cartucho 
JUPITER  LANDER 

Otra  petición:  ¿Podéis  hablar  de  las  incompa- 
tibilidades de  los  datasettes  en  el  intercambio 
de  cintas?  o bien  ¿es  top  secret? 

Otra  pregunta:  ¿Existen  va  juegos  de  aventu- 
ras tipo  Sentí  Adans  en  España? 

ERANCESC  CASTANYER 
I DIRECCION  EN  MACHA) 

I memos  pensado  dedicar  algún  espacio 
al  Eorlh.  pero  como  no  es  un  lenguaje  de 
mayorías,  sólo  aparecerá  en  algunos  núme- 
ros. Se  han  publicado  unos  artículos  sobre 
Eorlh  en  los  números  13  y 14  de  Club 
Commodorc  que.  como  decimos,  pensamos 
continuar.  Lo  del  Júpiter  l.ander.  es  algo 
asi  como  un  "SPRITE"  formado  por  cuatro 
caracteres  que  los  mueves  a la  ver.  pero  el 
Vic  no  tiene  Spriles  como  tal. 

¿Incompatibilidades  en  cintas?...  Será 
cosa  del  ajuste  de  la  cabeza,  pues  todos  los 
Vlcs  graban  igual.  Si  le  refieres  a intercam- 
bios entre  VIC'  y C-64...  lee  el  próximo 
número. 

I.os  juegos  tengo  entendido  que  hay  una 
casa  que  los  va  a traer  (son  rumores  de 
momento...  pero  de  bastante  "buena  tinta"). 


ELEMENTAL,  QUERIDO  WATSON 

Desearla  saber  cómo  se  realizan  las  siguien- 
tes sentencias: 

l’RINI  "|  Sil  IT  Cl  R |" 

PRINT  "| CTRL  X|  |SHFt  Ql" 

PRINT  "ICRSR  DN|" 

es  decir,  cómo  se  realizan  en  cl  listado  de  un 
programa,  por  eiemplo.  en  cl  primer  taso  se 
escribe  Print  y luego  se  aprietan  las  teclas 
SHIlTy  CI.R/HOMF. 

JORGE  VIDAL  ANAL! 
(7 Al  I A SAN  REDRO  RTOQL  I fí.  \"  II 
TORREDEM BARRA 
TARRAGONA 
Esto  está  explicado  en  la  “Clave  para 
interpretar  los  listados",  que  aparece  en 
lodos  los  números,  en  este  concretamente 
en  la  pág.  7. 


AIRE  ACONDICIONADO  PARA  C-64 
Y COLIRIO  PARA  EL  USUARIO 

Ante  cl  conocimiento  de  la  existencia  de- 
micros.  que  al  estar  enchufados  largo 
tiempo  acaban  quemados 
Desearía  saber  cl  tiempo  que  puede 
estar  encendido  en  nn  caso  particular  un 
C-64 

También,  si  con  un  ventilador  enfocado 
al  transformador  se  puede  aumentar 
dicho  tiempo  v cuanto. 

J / FERNANDEZ-  ARIA  Al  O 
ATOA.  MEDITERRANEO.  .IV.  .1.  I 
MADRID-7 

; Hasta  que  se  le  salten  los  ojos,  guapo! 

No  sabemos  de  ningún  C-64.  que  se  haya 
quemado.  El  que  utilizamos  en  la  revista 
trabaja,  a veces,  durante  más  de  40  horas 


sin  descansar  ni  fallar.  Si  prefieres  ponerle 
un  lenlilador  hazlo... 

Repeclo  a lo  que  nos  preguntas  en  tu  otra 
carta  sobre  el  Cartucho  Pascal,  la  hemos 
enviado  a Microelectrónica  y C ontrol  para 
que  le  contestaran  personalmente  lo  más 
rápido  posible,  por  lo  que  esperamos  que  va 
lo  tengas  solucionado. 


¡Y  DICE  QUE  NO  PREGUNTA! 

Mi  nombre  es  .losé  Manuel:  Como  es  la  pri- 
mera vez  que  os  escribo  a pesar  de  ser  socio  del 
club  hace  un  año.  tengo  algunas  cosas  que  pre- 
guntar: Y como  decís  que  hay  que  preguntar.. 

1"  Para  ordenador  VIC- 20.  como  se  realizan 
las  raíces  enésimas  (cúbicas.  4‘.  5*.  etc.) 

2'-1  Teniendo  el  expander  model  V1C-I020: 

2.1.  Se  pueden  poner  dos  cartuchos  de 
memoria  iguales  (dos  de  8 k o dos  de  3k,  ele) 
¿Qué  sucedería  si  se  pusieran? 

2.2.  ¿Cuál  es  la  mayor  cantidad  de  memoria 
(en  cartuchos)  que  se  le  puede  poner  al  expan- 
der? ¿Y  cómo  estaría  distribuida  en  cartuchos? 

2.3.  ¿Los  tres  k de  memoria  que  vienen  con  cl 
superexpander  sirven  para  programación  Basic? 

2.4  ¿Con  cl  superexpander  se  puede  poner 
un  cartucho  de  3k  (en  cl  expander)  y se  amplia- 
ría la  memoria? 

V Las  cintas  de  colaboraciones  que  mande- 
mos ¿nos  serán  devueltas  con  otro  programa? 
¿Este  programa  lo  podemos  elegir  nosotros?  Y 
si  es  asi  ¿pueden  ser  juegos  buenos  como  come- 
cocos.  frogger.  etc? 


Me  despido  de  vosotros  deseándoos  buena 
suerta  en  la  revista. 

JOSE  MANUEL  RITAS  TORRES 
TORRECEDEIRA  III.  r deha. 

VIGO-2 


I.R=>¡r X=*>  R=  X t (l/N).  Esto  sim- 
para lodos  los  Commodores. 

2.1.  Se  "grillaría"  tu  VIC, 

2.2.  I de  I6k.  I de  8h  y I de  3k.  simultá- 
neamente. por  lo  que  tendrás  tanto.  32k 
RAM  con  la  del  ordenador, 

2.3.  Si. 

2.4.  Otro  más  ¡NO.  POR  EAVlOR! 

3"  Serán  devueltas  con  la  mavor  rapidez 
posible. 

Para  elegir  tendríais  que  pasar  por  aquí  v 
escoger  uno  entre  nuestra  colección.  Nor- 
malmente lo  elegimos  nosotros. 

No  podemos  enviaros  el  "eomccoeos" 
porque  no  es  de  nuestra  propiedad  y nunca 
nosotros.  Commodorc  World,  robamos 
Cope  rigiits 

FINAL 

3.  ove.  tu  no  habrás  hecho  preguntas 
nunca,  pero  hoy  le  has  desquitado... 
¿Alguna  más.  hijo? 


¿QUIERES  SACAR  EL  MAXIMO  PROVECHO 

A TU  COMMODORE  64? 


Uis  ¿5  primeros  tic- 
kets recibidos  ten 
dron  el  obsequio  de 
un  programa  para  su 

COMMODORE  64 


TRONIK.  tu  amigo  informático  le  ofrece 

—Curso  a distancia  dei  COMMODORE. 

—Iniciación  a la  informática  y BASIC  del 
COMMODORE  en  nuestras  aulas. 

—Accesorios  para  el  COMMODORE  y VIC  20. 
— Libros  y revistas. 

—Alquiler  de  cartuchos  de  juegos  debajo 
de  Accesorios. 


Para  may  or  información,  dirígele  a TRONIK 
Bigay  11-13-  Telf.  212  Hfi  9l¡  Bal  relima  22 

N cimbre 

Dirección 

Población  Te|f 

Provincia  
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MARKETCLUB 


Servicio  gratuito  para  nuestros  lectores  particulares.  Empresas  300  ptas.,  por  línea. 


MERCADILLO 


(Ref  M-9) 

• Descurta  comprar  o intercambiar  programas 
tic  juegos  o con  diversas  utilidades  para  el  VIC- 
20  no  ampliado  (cinta).  Carlos  Pla/a  Hernán- 
dez. Calle  Mostré  Nicolau.  37-41.  Entlo.  3.'. 
Teléfono:  (93)  .3X0  13  17  BADAI.ONA  (Barce- 
lona ).  Preferible  llamar  de  13a  16  ó de  22  a 23. 

(Reí  \l- 10) 

• Ruego  toda  información  sobre  programas  y 
aplicaciones  de  3032  asi  como  monitor  para 
lenguaje  máquina  con  literatura  en  francés  o 
español.  Artemio  González  Pérez.  Calle  Fer- 
nando Arocena  Quintero.  I.  Barrio  de  Buenos 
Aires  SANTA  CRUZ  DE  TENERIFE  lele- 
fono:  (922)  22  42  44. 

(Re!.  M-ll) 

• Vendo  microordenador  VIC-20  sin  cassette, 
por  34.000  pías,  y regalo  más  de  70  programas 
de  todo  tipo,  entre  ellos,  control  stock,  ajedrez 
(2).  cuentas  comerciales,  archivo  QSL  con  pre- 
sentación en  pantalla  de  la  misma  y posibilidad 
de  imprimirla,  juegos,  etc.,  etc.  Interlace  CW- 
RTTY  autoconsl  ruido,  funciona  a la  perfección 
y vale  para  cualquier  ordenador,  se  incluyen 
programas  de  CW  y RTTY  por  10.000  ptas. 
Manuel  González  I ombardía  I A1CMC.  Calle 
Gabriel  y Galán.  4-2°  A PEÑARANDA  DE 
BARCAMONTE  (Salamanca). 

(Reí.  M-12) 

• Intercambio  programas  de  todo  tipo  para  el 
VIC-20.  Regalo  programas  a lodo  aquel  que 
pida  mi  lista.  También  vendo  ampliación  de 
memoria  I6K  por  sólo  12.000  pesetas.  Dirigirse 
a:  Tomás  Toribio.  Calle  Jerusalén.  5.  ZARA- 
GOZAS. Telefono:  (976)  35  69  94 

(Reí  M-13) 

• Si  os  sobra  una  impresora  para  el  VIC-20  y 
no  sabéis  a quién  regalársela  yo  estaría  muy 
complacido  de  recibirla.  Jorge  Rodríguez 
Añeyro.  Polígono  San  Pablo.  Barrio  C.  Torre 
2»  4C.  SEVII.LA-7. 

(Ref.  M-l  4) 

• Desearía  comprar  cartucho  Supcr  Expander 
para  VIC-20.  Precio  a convenir.  Llamar  de  2 a 
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2.30  ó de  7 a II.  Tcl.  (954)  61  41  24,  Calle 
Gustavo  Gallardo.  7-41’  D.  SEVILLA-13. 
Cuanto  antes  llamen  mejor. 


(Ref  M-13 ) 

• Compro  placa  Indescomp  de  ampliación  de 
memoria  a 32  K.  cartucho  "Supcrexpandcr"  y 
"monitor  lenguaje  máquina",  para  VIC-20. 
Luis  Astrolfi  Antona.  Avda,  51’  Nü  22.  2D. 
Ciudad  Pegaso  MADRID-22 

(Ref.  M-¡6) 

• Agradecería  a quien  pudiera  enviarme  infor- 
mación sobre  monitores  a color  compatibles 
con  el  VIC-20.  sobre  todo  con  precio.  También 
si  existen  programas  de  simulación  y aventuras 
para  el  VIC-20.  y si  asi  fuera,  su  precio,  memo- 
ria que  ocupan  y en  qué  consisten.  Por  favor 
sólo  por  correo,  no  visitas  a domicilio  ni  llama- 
das telefónicas  Mario  Diaz  Gañán.  Coman- 
dante Zorita.  25.  4VC  MADRID-20 

(Ref  M-l  7) 

• Intercambiaría  programas  para  VIC-20.  con 
3K  alta  resolución  y ponerme  en  contacto  con 
universitarios  o estudiantes  de  informática. 
José  María  Martínez  García.  Apartado  303. 

CARTAGENA. 

f Ref  M-l 8) 

• Vendo  algunos  interfaces  para  VIC-20  y 64, 
para  RTT/CW  Totalmente  eficaces  tanto  en 
facilidad  de  sintonía  como  en  respuesta.  Filtro 
de  425  Hz  para  comerciales.  Precio  20.000  Ptas. 
Regalo  programas  RTTY/CW  y archivo  QSL. 
Solicitad  información.  EA  IBDD.  Arturo  Sán- 
chez Galán.  c/Gencralisimo.  9,  Teléfono  42  ó 
43  de  Solosancho.  (AVILA). 

(Ref  M-l 9) 

• Compraría  ampliación  de  memoria  de  16  ó 
32  K Juan  M‘.  Tcl.  972/570  497.  C/Santa 
María.  26.  Banyoles  (GERONA). 

(Ref  M-20) 

• Intercambio  programas  para  VIC-20  de  todo 
tipo:  Juegos  y utilidades.  También  específicos 
para  radioaficionados:  Orbitas.  QTH.  locator. 
etc. 

Alfonso  Moraleda  Pérez(EA4CAI)  Clara  del 
Rey.  81  MADRID-2.  Teléf.:  (91)  415  02  24 

(Ref  M-21) 

• Se  compra  cartuchos  de  expansión  para  el 
VIC-20  y cintas  de  juegos  para  el  mismo,  llamar 
o escribir  a Joan  Scrra  Conde.  C/Blanch.  n“  3. 
MALGRAT  (Barcelona).  Teléf.:  761  10  17. 


(Reí  M-22) 

• Aceptaría  ofertas.  Si  pudieran  darme  infor- 
mes de  programas  para  el  C-64.  Albcrt  Godo 
Falco.  Apto  de  Correos  n'  143  IGUALADA 
(Barcelona).  Teléf.:  803  01  25.  Edad  IX 

(Ref  M-2JI 

• Usuario  de  C-64.  estoy  interesado  en  el  inter- 
cambio de  experiencias  y programas  de  todo 
tipo.  José  Alberto  Galorio  Plaza  Reves  Magos. 
I Teléf.:  251  75  IX  MADRID. 

(Ref.  M-24) 

• Dispongo  de  programa  para  VIC-20  +"8/16 
Kb"  ó “8/l6+3Kb"  que  añade  35  (treinta  y 
cinco)  NUEVOS  comandos  al  Basic  del  VIC. 
dos  tipos  de  letras:  40  columnas  por  24  lilas  y 
20  col.  por  24  III. . también  alta  resolución  de 
160  por  192  pixel.  Todo  ello  de  uso  simultáneo 
sin  cambiar  de  modo.  Acompaño  con  el  pro- 
grama las  explicaciones  y programa  demostra- 
ción. 3.000  ptas. 

Guillermo  Falgueras  Cano.  Apart.  211-  LA 
LINEA  (Cádiz).  Teléf.:  766  999.  Preguntar  por 
Guillermo  y 766  532  preguntar  por  Juan. 

(Ref.  M-25) 

• Tengo  un  Commodorc  64.  y soy  agente  libre 
de  seguros,  desearía  saber  si  se  han  desarro- 
llado programas  específicos  para  esta  actividad 
o algunas  aplicaciones. 

Luis  Angel  Gutiérrez  Diaz  - Angela  Peña 
Calvo.  C/Diego  de  Velázqucz.  6-4v  Delta. 
Teléf.:  (941)  23  75  22.  I.OGRONO. 

(Ref  M-26) 

• VENDO: 

• TRS  80  compuesto  de  teclado  con  16  K. 
monitor  B/N.  impresora  rápida  térmica, 
manual  en  castellano  v cassctcs  de  programa. 
50.000  ptas.  (1979). 

• SINCLAIR  ZX8I  compuesto  por  teclado 
profesional  32K.  impresora  ZX.  unidad  de 
sonido,  manuales  en  castellano.  30.000  ptas. 
(marzo  1980). 

• VIC  20  compuesto  de  teclado  con  I6K. 
manuales  en  castellano,  cartucho  juegos.  I‘ 
parte.  Introducción  a la  informática.  30.000 
ptas.  (agosto  1983). 

• CASIO  PB 100  compuesto  de  unidad  central. 
1510  pasos  memoria,  interface  casselc.  impre- 
sora térmica,  manuales  en  castellano.  20.000 
ptas.  (agosto  1983). 

Llamar  al  311  27  06.  preguntar  por  Carlos 
Infante,  de  12  a 16  horas. 


CLUBS 


(Ref  C-lf 

• Club  de  amigos  del  VIC-20  y Commodore- 
64.  Ramón  P.  Serna  Soler.  Foto  Estudio  2. 
Plaza  de  Sombrereros.  2.  PAI.MA  DF.  MALLOR- 
CA. Tel.  2131  62. 


(Ref.  C-2) 

• Desea  información  sobre  clubs  en  existencia 
y gente  que  quiera  formar  uno.  Agustín  Quc- 
vedo  Velasco.  Oña.  55-4°  B MADRID- 34  Tel.: 
202  94  28. 


(Ref  C-3) 

• Desea  información  sobre  clubs  en  existencia 
V gente  que  quiera  formar  uno.  Pablo  Nislal 
Alonso.  Empecinado.  46.  6"  B MOSTOI.ES 
Tel.  645  21  7(1, 


(Ref  C-4). 

• Club  de  programación  Alai/,  en  Pamplona 
Está  dirigido  a estudiantes  de  B U P.  y C'.O.U. 
de  esta  ciudad,  y el  lin  que  tiene  es  la  introduc- 
ción en  el  mundo  de  la  informática  y progra- 
mación BASIC.  No  tiene,  por  lo  demás,  ningún 
lin  lucrativo,  El  club  propiamente  posee  equi- 
pos COMMODORI  64.  VIC-20.  y diversos 
periféricos  (impresora,  unidad  de  disco  y cas- 
' selle),  CLUB  ALAI?..  P/a.  Monasterio  Santa 
Gemina,  s/n.  Tcls.:  254480-257704.  PAM- 
PLONA. 


(Ref  C-5) 

• Club  de  Commodorc  de  Albacete.  Fernando 
Martínez  Guerrero.  La  Roda.  39  5®  D ALBA- 
CETE. 


(Ref.  C-6¡ 

• Circulo  Durensan  Vigues.  VIGO.  Venezuela. 
48.  Entrcchan.  Tels.:  (986)  410683-422519. 


(Ref  C-7) 

• Un  grupo  de  usuarios  de  la  Comunidad 
Autónoma  de  Murcia  intenta  crear  un  Club  de 
Usuarios  de  VIC-20  y C-64  en  esta  región,  sin 
fines  lucrativos.  Interesados  llamara  los  teléfo- 
nos (9681  80  23  64  (Mañanas,  preguntar  por 
Paco):  (968)  26  72  62  (Tardes,  preguntar  por 
Fernando).  Francisco  Sácz  Soto.  C/Virgen  del 
Rosario.  28  ALCANTARILLA  MURCIA. 


(Ref  C-R) 

• Deseo  contactar  con  interesados  en  formar 
un  club  de  microordenadores  en  Barcelona  e 
intercambiar  experiencia  Domenec  Garrofe. 
(VArai-ón.  575.  4'1  2"  B A RCELON A-26  Telf 
348  00  39. 

(Ref  C-V) 

• Interesados  en  la  creación  de  Club  de  Usua- 
rios en  Girona  escribir  a "Apartado  de  Correos 
n"  580"  de  GIRONA. 


(Ref  C-IO) 

• Xabier  Prat  i Burdo  que  vive  en  c/  Rabal  Sta. 
Eulalia  s/n.  de  Sta.  María  Dólo(BAGES)  Bar- 
celona quisiera  saber  si  existe  algún  Club 
Commodorc  cerca  de  Manrcsa  y solicita  infor- 
mación sobre  todo  lo  relacionado  con  Módems. 

(Ref  C-ll) 

• Os  rogaría  me  comunicarais  si  existe  algún 
Club  Commodore  en  mi  ciudad  (Gl'ADALA- 
JARA)  o en  ALCALA  DE  HENARES  (donde 
trabajo).  También  agradecería  información 
acerca  de  accesorios,  publicaciones,  etc.,  así 
como  de  distribuidores  de  Madrid  que  trabajen 
con  el  C-64.  Miguel  Angel  Capeña  Alonso,  c/ 
Tabernero.  16-3°  I.  Telf.  (91)  22  67  57. 


(Ref  C-12] 

• Desearía  información  sobre  la  existencia  de 
algún  Club  Commodorc  en  Somaén  o sus  cer- 
canías. Carlos  Cabrera.  Camino  de  las  Eras, 
s/n.  Somaén  (Soria). 


BOLSA  DE 
TRABAJO 


OFERTAS 

(Ref.  BO-I) 

• PROGRAMADORES  C-64  Si  conoces  a 
fondo  el  Commodore  64  y quieres  trabajar, 
envíanos  tu  curriculum  vitae  y una  foto  reciente 
al  apartado  de  Correos  de  Madrid  10.048.  Con- 
testaremos todas  las  solicitudes. 


DEMANDA 

(Ref.  BD-I) 

• Realizo  procesamiento  estadístico  de  datos. 
Tfno:  91-273  20  76.  Pedro  Caminal 


—Commodore  World,  dígame. 

— ¡¡Se  me  ha  perdido  el  boletín  de 
suscripción!! 

— No  se  preocupe,  por  teléfono  tam- 
bién puede  suscribirse  llamando  al 
número  (91)  259  54  78. 


Commodore 


WI'O 
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La  Caja  de  los  Misterios 


¿Te  encuentras  un  poco  confuso  a cerca 
de  esa  caja  de  misterios  llamada  la  unidad  simple  de 
discos  1541?  Este  artículo  aclarará 
un  poco  este  tema  y te  ayudará  a aprovechar  al 
máximo  tu  unidad  de  discos 


La  mayoría  de  los  principiantes  descu- 
bren rápidamente  las  desventajas  de 
utilizar  cintas  para  cargar  y salvar  pro- 
gramas. con  el  resultado  de  que  pronto 
deciden  comprarse  una  unidad  de  discos. 
La  unidad  simple  de  discos  1541  resulta 
ser  un  complemento  potente  y barato  para 
cualquier  VIC-20  o C-64,  pero  esta  ven- 
taja trae  sus  complicaciones. 

La  lectura  del  manual  no  ayuda  mucho 
ya  que  resulta  tan  complejo  como  la 
misma  unidad,  y por  lo  tanto  intimida  un 
poco  a los  principiantes.  La  finalidad  de 
este  articulo  es  la  de  presentar  una  expli- 
cación sencilla  y detallada  de  las  caracte- 
rísticas y operaciones  de  uso  más  fre- 
cuente de  la  1541,  orientadas  específica- 
mente al  que  use  la  unidad  de  discos  por 
primera  vez. 

Abre  Tu  Manual... 

Usando  este  artículo,  la  unidad  de  dis- 
cos. el  manual  de  usuario  de  la  unidad 
1541  y el  disco  de  demostración,  serás 
capaz  de  aprender  las  técnicas  de  trabajo 


VIC-20 

C-64 


con  disco  en  programas  BASIC.  Aprende- 
rás a desembalar,  conectar  y usar  tu  uni- 
dad de  discos,  y a leer  los  directorios  de 
los  discos.  Te  enseñaré  a cargar  progra- 
mas de  discos  pregrabados  y cómo  salvar 
programas  en  discos  nuevos. 

Finalmente,  aprenderás  a utilizar  el 
programa  soporte  del  DOS  (“wedge"  o 
cuna),  y cómo  usar  las  utilidades  incorpo- 
radas en  la  1541  para  comprobar,  borrar  y 
cambiar  el  nombre  de  los  programas  en 
disco.  Cuando  termines  de  leer  este  arti- 
culo, sabrás  todo  lo  que  hay  que  saber 
sobre  las  operaciones  más  importantes  en 
disco,  y podrás  entender  el  contenido  del 
manual  lo  suficiente  como  para  empezar  a 
aprender  las  demás  operaciones. 

Tarde  o temprano,  dentro  del  mundo 
de  la  electrónica,  te  darás  cuenta  de  la 
verdad  del  proverbio  “Cuando  todo  lo 
demás  te  falle,  consulta  el  manual".  Sin 
embargo,  resulta  bastante  más  difícil  leer 
un  manual  que  leer  el  "Hola",  pero 
incluso  el  manual  más  complicado  con- 
tiene casi  todo  lo  que  necesites  saber  sobre 
el  funcionamiento  del  equipo. 

Aunque  queda  lejos  de  ser  perfecto,  el 
"Manual  del  Usuario  de  la  Unidad  Simple 
de  Discos  1541  del  VIC-20".  es  mejor  que 
muchos  manuales  de  equipo,  y es  la  mejor 
fuente  de  información  recopilada  sobre  la 
1541.  Asumo  que  dispones  de  un  manual 


al  que  referirte  cuando  leas  este  articulo, 
asi  que  intentaré  evitar  las  repeticiones  de 
la  información  que  contiene  el  manual. 

El  manual  que  yo  tengo  se  identifica  en 
la  página  del  titulo  como  P/N  15400018-02. 
y en  la  página  que  nombra  la  editorial  con 
fecha  de  septiembre  de  1981.  Si  el  tuyo  es 
diferente,  no  te  preocupes;  podrás  seguir 
estas  aclaraciones. 

Toma  tu  manual  y mira  cuidadosa- 
mente el  índice  en  la  página  1.  Repasare- 
mos los  contenidos  de  los  capítulos  1-4.  de 
una  forma  más  comprensible  c incluyendo 
unas  explicaciones  importantes.  La  infor- 
mación más  complicada  de  los  capítulos 
5-9  resulta  demasiado  avanzada  para  los 
fines  de  este  articulo. 

Velocidad  y Capacidad 

El  capitulo  1 te  dará  una  base  excelente 
para  comprender  este  artículo  y el  resto 
del  manual.  Los  discos  resultan  realmente 
rápidos.  Lo  comprobé  con  un  programa 
de  64K  que  cargué  primero  de  cinta  y 
luego  de  la  1541.  los  resultados  fueron: 
cinta.  311  segundos;  disco.  45  segundos. 
¡No  está  mal!  Pero  pienso  que  hay  unida- 
des de  discos  más  rápidas  que  la  1541;  mi 
PEDISK  II  cargó  el  mismo  programa  en 
cuatro  segundos.  De  todos  modos  la  1541 
es  una  gran  mejora  sobre  el  DATASSETTF.. 

Sólo  hay  tres  características  del  disco 
que  interesan  al  principiante  (páginas  5 y 
7).  La  1541  utiliza  discos  normales  secto- 
rizados  por  programas,  de  una  sola  cara  y 
simple  densidad.  Esta  es  una  buena  noti- 
cia. ya  que  normalmente  son  los  más 
baratos.  Puedes  usar  otros  tipos  de  discos, 
pero  pagarás  dinero  por  una  calidad  que 
la  1541  no  puede  aprovechar. 

La  capacidad  de  un  disco  tiene  unos 
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‘ algunos  de  nuestros  programas  para  los  |T| 
. ordenadores  personales 

commodore 


CONTABILIDAD 

DIARIO -BALANCES 
SUMAS  SALDOS  Y 
SITUACION 
LISTADOS  APUNTES 
CUENTAS  750 
APUNTES  3515 


CONTROL  STOK 


MCVIMENTOS  DE  ALMATFM 
diaros  de  ventas  Y n 

mínimos8  INVENTAR,° 
listados  diversos 
artículos  1500 
PROVEEDORES  255 


GESTION 

COMERCIAL 

MOVIMENTOS  DE  AL  MAC 

v OTROS  LISTAIS 
CLIENTES  500 
ARTCULOS  Soo 


RECIBOS  Y 
ETIQUETAS 

MANTFNMENTO 
LISTADO  DE  REC80S 
REMESAS 

LSTADO  ETIQUETAS 
Y OTROS 


CONMUTADOR  T.V. 

PERMITE  SIMULTANEAR 
EL  USO  DE  LA  ENTRADA 
DE  ANTENA  AL  TV 
CON  UN  ORDENADOR 
PERSONAL 

commodore 

PV.P.  2.850  pts. 


AVD.  CESAR  AUGUSTO.72 
Tlfs.23  56  82  y 22  6544 
ZARAGOZA  3 


AGENDA  Y 

etiquetas 

Direcciones 

¿ENTONES  DARIAS 

y otros  procesos 


LA  CAJA  DE  LOS  MISTERIOS 


limites  bien  definidos.  Puedes  guardar  144 
programas  en  un  disco,  siempre  que  ocu- 
pen menos  de  174.848  bytes.  Al  quedar 
salvados  ese  número  de  bytes.  el  disco  se 
considera  lleno,  aunque  los  programas 
grabados  sólo  sean  unos  pocos.  Si  intentas 
salvar  un  programa  que  sobrepase  este 
limite,  la  1541  enviará  un  mensaje  de 
error. 

Conexión 

En  este  capitulo  existen  varias  omisio- 
nes. Conviene  que  el  ordenador  se 
conecte  en  último  lugar  para  que  la  uni- 
dad de  discos  y la  impresora  ejecuten 
correctamente  la  secuencia  de  encendido. 

En  el  programa  soporte  del  DOS 
(cuña),  no  menciona  otros  dos  comandos 
del  C-64: 

t NOMBRE  = LOAD  “NOMBRE",8  + 

+ RUN 

9(  NOMBRE  = LOAD  “NOMBRE".8,l 
♦NOMBRE  = SAVE  "NOMBRE".8 

Cargando  el  Programa 

El  capitulo  3 del  manual  contiene  mucha 
información,  pero  puede  resultar  un 
poco  difícil  sacarla  toda.  Para  que  esta 
operación  resulte  un  poco  más  fácil, 
hablaremos  de  varios  temas  en  un  orden 
diferente  y explicaremos  unas  cosas  que 
no  son  tratadas  en  el  manual.  Primero, 
vamos  a mirar  los  programas  en  un  disco 
pregrabado  —el  Disco  de  Demostración 
VIC  1541  Test/Dcmo  que  acompaña  la 
unidad  de  discos  1541. 

Si  has  seguido  las  instrucciones  del 
capitulo  2.  el  ordenador  y la  unidad  de 
discos  tienen  que  estar  encendidos,  espe- 
rando el  siguiente  comando.  Siguiendo  las 
instrucciones  de  la  página  1 1 para  la 
inserción  del  disco,  introduce  el  disco 
Test/Demo  en  la  unidad  de  discos  y cierra 
la  puerta. 

Tal  y como  sale  de  la  fábrica,  el  disco 
Test/Dcmo  viene  con  varios  programas 
grabados  junto  con  un  directorio.  De 
hecho,  cada  disco  incluye  un  directorio 
como  parte  de  la  operación  de  inicializa- 
ción  en  una  unidad  Commodorc.  El  direc- 
torio indica  lo  que  se  haya  grabado  en 
disco,  si  es  que  hay  algo  grabado,  y su 
lectura  es  una  operación  importante  y 
frecuente. 

El  directorio  puede  ser  cargado  y lis- 
tado. igual  que  un  programa  en  Basic. 
Para  cargar  un  directorio  de  disco,  se 
teclea  LOAD,  seguido  por  el  signo  del 
dólar  entre  comillas,  una  coma  y el 
número  8.  A continuación,  se  teclea  la 
tecla  “Return".  Por  lo  tanto,  con  el  disco 
Test/Demo  cargado  en  la  unidad,  se 
teclea: 

LOAD  "$".8 

Se  vuelve  a pulsar  la  tecla  "Return",  y 
debe  de  aparecer  un  mensaje  de  cargar, 
seguido  a los  pocos  segundos  por  un  men- 
saje "READY" 

Si  aparece  otro  mensaje,  será  señal  de 
que  han  introducido  incorrectamente  el 
disco.  El  LED  rojo  de  la  1541  se  enciende 
y se  apaga  para  indicar  que  algo  va  mal.  Si 
esto  ocurre,  comprueba  el  disco  y vuelve  a 
probar  con  el  comando  Load. 

Una  vez  cargado  correctamente,  S se 
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lista,  y se  ve  en  seguida  que  no  se  parece  en 
nada  a un  programa  normal  en  Basic: 
debe  parecerse  al  listado  en  la  Figura  1.  A 
continuación,  se  presenta  una  explicación 
del  significado  del  directorio. 

El  cero  que  aparece  al  principio  de  la 
primera  linea  indica  que  el  directorio  pro- 
cede de  la  unidad  de  discos  0.  Si  el  usuario 
dispone  de  una  unidad  doble  como  la 
4040  o la  8050.  una  de  las  unidades  se 
llamaría  0 y la  otra  I:  este  primer  carácter 
distinguiría  el  directorio  de  cada  una. 

El  nombre  de  campo  invertido  que  apa- 
rece entre  comillas  en  la  primera  línea  es  el 
nombre  del  disco,  que  le  fue  asignado 
cuando  el  disco  se  inicializó  para  una  uni- 
dad de  discos  Commodore.  Igual  que  los  . 
nombres  de  los  programas,  éste  puede 
contener  hasta  16  caracteres. 

El  ZX  que  aparece  en  la  primera  linea 
constituye  el  identificador  de  dos  caracte- 
res del  disco,  que  fue  establecido  cuando 
el  disco  fue  formateado.  El  nombre  del 
disco  y el  identificador  constituyen  dos 
maneras  totalmente  independientes  de 
identificar  el  disco.  A diferencia  del  nom- 
bre. el  identificador  se  graba  muchas  veces 
en  el  disco  y está  estrechamente  relacio- 
nado con  las  operaciones  de  la  1541.  En  la 
medida  en  que  sea  posible,  no  se  debe  de 
asignar  el  mismo  identificador  a más  de 
un  disco. 

El  2A  que  finaliza  la  primera  linea 
indica  la  versión  del  DOS  bajo  la  cual  se 
formateó  el  disco.  Si  no  sabes  lo  que  esto 
significa,  no  te  preocupes,  de  momento, 
no  te  hace  falta. 

Las  siguientes  lineas  del  directorio 
contienen  información  sobre  los  15  pro- 
gramas grabados  en  el  disco.  El  número  al 
principio  de  cada  linca  indica  el  número 
de  "bloques"  que  un  programa  determi- 
nado ocupa  en  el  disco,  y puede  servir 
para  indicar  más  o menos  la  longitud  del 
programa.  Como  podrás  ver,  "How  to 
Use"  es  un  programa  que  resulta  mucho 
más  largo  que  el  “C-64  Wedgc". 

Los  nombres  de  los  programas,  con  un 
máximo  de  16  caracteres,  aparecen  entre 
comillas  detrás  de  los  indicadores  de  blo- 
ques. Las  letras  PRG  que  siguen  el  nom- 
bre del  programa  indican  que  la  informa- 
ción grabada  es  un  programa,  y no  un 
fichero  de  datos.  Se  utilizan  letras  distin- 
tas como  SEQ  o REL.  para  indicar  fiche- 
ros de  datos  de  diferentes  tipos.  A decir 
verdad,  lo  que  nosotros  hemos  llamado 
nombres  de  programas  deben  llamarse 
nombres  de  ficheros,  dado  que  para  la 
1541.  un  programa  solamente  constituye 
otro  tipo  de  fichero. 

A medida  que  vayas  usando  tus  directo- 
rios en  el  futuro,  podrás  ver  que  los  pro- 
gramas nuevos  añadidos  a un  disco  no 
aparecen  siempre  al  final  del  directorio, 
sino  que  a veces  se  insertan  en  medio.  Esto 
se  debe  a que  la  1541  introduce  los  pro- 
gramas donde  encuentre  espacio,  es  decir, 
en  cualquier  sitio  que  aparece  en  el  disco. 
El  directorio  los  lista  en  el  orden  en  que 
los  encuentra,  lo  cual  puede  resultar  un 
poco  confuso  a veces. 

La  última  línea  del  directorio  indica 
cuántos  bloques  de  almacenamiento  que- 
dan en  el  disco.  A medida  que  se  añaden 
programas,  este  número  se  va  reduciendo. 


v a medida  que  se  borran,  se  aumenta. 

Para  encontrar  los  nombres  de  los  pro- 
gramas grabados  en  disco,  se  carga  y se 
lista  el  directorio,  igual  que  hemos  hecho 
en  el  disco  Test/Demo.  El  siguiente  paso 
normalmente  es  el  de  cargar  uno  de  estos 
programas  introduciendo: 

LOAD"xxxx".8 

cuando  xxxx  es  el  nombre  del  programa 
deseado,  tecleado  en  mayúsculas. 

Existen  unos  detalles  y unos  atajos  bas- 
tante útiles  para  cargar  programas  de 
disco,  los  cuales  quedan  bastante  bien 
explicados  en  el  manual.  Primero  lee  las 
páginas  27  y 28  y 74  y 75. 

Ahora  que  hemos  leido  como  se  cargan 
los  programas  de  disco,  vamos  a hacerlo. 
El  disco  Test/Demo  contiene  más  de  una 
docena  de  utilitarios  en  disco  que  te  pue- 
den ser  útiles  en  el  futuro.  Los  dos  prime- 
ros programas  en  el  disco  contienen  unas 
instrucciones  breves  sobre  el  uso  de  los 
demás. 

Para  empezar,  carga  el  programa  lla- 
mado “How  to  Use"  introduciendo  el 
comando  LOAD"H*",8.  (Si  Ices  el  ma- 
nual. sabrás  que  se  utiliza  el  asterisco 
como  pauta  de  acuerdo  para  ignorar  el 
resto  del  nombre.) 

Ahora  ejecuta  el  programa  para  leer  las 
descripciones  de  los  demás,  pero  no  car- 
gues ninguno  en  este  momento.  Cuando 
pulsas  la  barra  de  espaciado,  asegúrate  de 
que  la  sueltas  en  seguida,  dado  que  la 
acción  repetitiva  borrará  alguna  informa- 
ción importante. 

Cuando  llegas  al  final  del  programa,  el 
comando  LOAD"HOW  PART  TWO".8 
se  encontrará  en  la  misma  linea  que  el  cur- 
sor. Pulsa  la  tecla  Return  para  ejecutarlo, 
y observa  el  LED  rojo  de  la  unidad  de 
disco  mientras  escuchas  el  motor;  el  LED 
se  encenderá  mientras  se  carga  el  pro- 
grama y se  apagará,  pero  si  destella  inter- 
mitentemente significa  que  hubo  un  error. 
Ahora  ejecuta  el  programa  que  acabas  de 
cargar  y lee  la  información  sobre  los  últi- 
mos programas  en  el  disco. 

Con  esto  ponemos  fin  a las  explicacio- 
nes sobre  cómo  cargar  un  programa.  Para 
que  te  resulte  más  cómodo,  las  instruccio- 
nes para  los  programas  “How  to  Use”  se 
presentan  en  la  Tabla  I.  y los  listados  para 
algunos  de  ellos  aparecen  en  el  Apéndice 
A del  manual.  Ahora  estamos  preparados 
para  grabar  en  disco. 

Grabando  en  disco 

Un  disco  nuevo  está  totalmente  en 
blanco.  Antes  de  poder  utilizarlo, 
debes  darle  un  nombre  y un  identificador 
de  dos  caracteres,  y hay  que  reservar  un 
poco  de  espacio  para  almacenar  el  direc- 
torio. Esta  operación  se  llama  comun- 
mente formatear  el  disco,  y esto  se  realiza 
mediante  una  serie  de  comandos  en  el 
teclado. 

Estos  comandos  (Open.  Print#  y New) 
están  descritos  en  el  capitulo  3 del  manual 
(páginas  17  y 18).  Estas  descripciones 
aclaran  que  un  disco  en  blanco  puede  ser 
formateado  al  introducirle  a éste  en  la 
1541  y teclear  OPEN15.8.I5.“NEWO:VIC- 
TORÍA.BS”. 

El  disco  formateado  asi  se  llamará 
VICTORIA,  y su  identificador  será  BS.  Si 


tienes  un  disco  en  blanco,  intenta  a forma- 
tearlo ahora.  A continuación,  se  carga  y se 
lista  su  directorio  para  poder  ver  los 
resultados. 

Dado  que  la  operación  de  formateado 
significa  que  hay  que  escribir  en  el  disco, 
la  muesca  de  protección  no  debe  estar 
tapada.  (La  muesca  de  protección  es  una 
franja  recortada  de  1/4  de  pulgada  cua- 
drada en  el  borde  del  disco  que,  cuando  se 
tapa  con  una  cinta,  prohíbe  la  escritura  en 
el  disco).  Si  intentas  escribir  en  un  disco 
protegido,  el  LED  rojo  empezará  a deste- 
llar, indicando  una  situación  de  error. 

Resulta  increíblemente  fácil  salvar  un 
programa  en  Basic  en  un  disco  forma- 
teado. Lo  único  que  hay  que  hacer  es 
introducir  lo  siguiente: 

SAVE“xxxx",8 

cuando  xxxx  representa  el  nombre  del 
programa  deseado.  Al  igual  que  con  el 
comando  LOAD,  hay  que  comprender 
unos  cuantos  detalles  que  se  explican  en  la 
sección  titulada  Save  en  la  página  26  del 
manual. 

El  comando  Verify,  que  resulta  tan  útil 
en  el  Datasscttc,  también  queda  disponi- 
ble en  disco.  Pero  dado  que  es  mucho  más 
fiable  salvar  en  disco  que  en  cassette,  el 
comando  Verify  se  utiliza  mucho  menos 
con  los  discos.  El  comando  Verify  se 
explica  en  la  página  27  del  manual. 

Otros  Comandos  del  Disco 

Se  utiliza  el  comando  OPEN15.8.I5 
cuando  la  operación  de  formatear  un 
disco  resulta  un  poco  más  complicado  que 
lo  normal.  El  canal  15  es  el  llamado  canal 
de  comandos  o el  canal  de  errores,  y se 
puede  utilizar  para  enviar  varios  coman- 
dos distintos  a la  1541.  El  canal  se  abre 
introduciendo  OPEN  n.8,15,  cuando  n.  el 
número  del  fichero  lógico  es  cualquier 
número  del  I al  127.  La  mayoría  de  los 
usuarios  hacen  que  n=!5  para  evitar  cual- 
quier confusión. 

El  canal  de  comandos  tiene  varias 
maneras  para  cerrarse,  algunas  de  las  cua- 
les son  bastante  sutiles,  y si  el  canal  se 
cierra  sin  querer,  podrías  pensar  que  el 
ordenador  se  ha  vuelto  loco.  Las  senten- 
cias en  Basic  Cióse.  CLR.  New  y Run.  y el 
añadir  o el  borrar  lineas  de  un  programa 
en  Basic  cerrarán  el  canal  de  comandos. 
Sin  duda,  existen  otros  métodos  para 
hacerlo.  Hay  que  tener  en  cuenta  que  un 
canal  abierto  se  puede  cerrar  en  cualquier 
momento,  y te  tienes  que  preparar  por  si 
esto  ocurre. 

Cuando  un  canal  de  comandos  se 
encuentra  abierto,  los  comandos  se  envían 
a la  1541  tecleando  PRINTtt I5.xxxx 
cuando  xxxx  representa  el  comando  en 
cuestión.  (Si  el  canal  se  ha  abierto  con  un 
número  del  Fichero  lógico  que  no  sea  el  1 5. 
esc  número,  y no  el  15.  tiene  que  seguir  el 
comando  PRINT#. 

La  mayoría  de  los  comandos  consisten 
en  una  palabra  o la  abreviatura  de  ésta, 
algunos  son  puntuaciones  y otros  son 
parámetros.  Los  comandos  de  más  interés 
para  el  principiante  son  Scratch.  para 
borrar  un  programa  del  disco,  y Rcname. 
para  darle  un  nuevo  nombre  al  programa. 

Los  comandos  Initialize  y Valídate 
también  ofrecen  algún  interés.  Estos  y 


otros  comandos  se  explican  en  las  páginas 
19.  21  y 23  del  manual. 

Errores  y Mensajes  de  Error 

Las  varias  condiciones  de  error  quc'puc- 
den  hacer  destellar  el  LED  rojo  se  lis- 
tan en  el  capitulo  8 del  manual.  Existen 
errores  de  lectura,  de  escritura,  de  sintaxis 
y muchos  más.  Si  esto  te  interesa,  consulta 
el  capitulo  8. 

Cuando  el  LED  rojo  destella,  la  infor- 
mación sobre  el  error  que  ha  provocado  la 
intermitencia  se  encuentra  en  el  canal  de 
comandos.  De  hecho,  dicho  canal  muchas 
veces  es  llamado  el  canal  de  errores.  Al 
escribir  y ejecutar  un  programa  corto,  se 
puede  leer  la  información  sobre  errores,  la 
cual  puede  resultar  útil  para  diagnosticar 
el  error.  Los  detalles  se  presentan  en  la 
página  69  del  manual,  dentro  de  la  sección 
titulada  Petición  de  Mensajes  de  Error. 

Cuando  el  LED  rojo  empieza  a deste- 
llar. continúa  así  hasta  que  se  lee  el  canal 
de  errores  o cualquier  otro  suceso  da  fin  a 
la  condición  de  error.  Como  es  de  esperar. 


estos  sucesos  pueden  ser  apagar  y volver  a 
encender  el  ordenador,  cargar  un  pro- 
grama de  disco  o cargar  el  directorio  del 
disco  en  la  memoria. 

El  Programa  “Wedge” 

El  programa  de  soporte  DOS,  que  tam- 
bién se  llama  "wedge”  o cuña,  es  uno 
de  los  programas  más  útiles  en  el  mundo 
de  Commodore.  pero  también  uno  de  los 
peores  documentados.  Su  finalidad  es  la 
de  eliminar  muchas  pulsaciones  de  teclas 
que  normalmente  se  necesitan  para  traba- 
jar con  la  unidad  de  discos,  y lo  hace  bien. 
Probablemente  tu  disco  Test/Demo  con- 
tiene un  "wedge"  para  tu  ordenador.  En 
mi  disco  existen  dos  — un  "Wedge"  para 
el  VIC-20  y otro  para  el  C-64.  El  tuyo 
puede  tener  unos  nombres  distintos,  pero 
seguramente  se  encuentran  allí. 

Una  vez  cargado  y ejecutado  el  pro- 
grama “wedge".  otros  programas  pueden 
ser  cargados  al  teclear  la  barra  de  fracción 
y el  nombre  del  programa,  y pulsando  la 
tecla  “return".  El  nombre  del  programa 
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no  tiene  que  cerrarse  entre  comillas,  y el 
asterisco  o la  interrogación  pueden  ser 
usados  normalmente  para  abreviarlo. 

El  "wedgc"  permite  la  lectura  del  canal 
de  errores  al  teclear  > o y pulsando  a 
continuación  la  tecla  “rcturn".  Si  cual- 
quiera de  los  dos  símbolos  va  seguido  de 
un  signo  de  dólar,  el  directorio  saldrá  en 
pantalla  sin  interferir  cualquier  programa 
almacenado  en  memoria.  Además,  cual- 
quiera de  los  dos  símbolos  puede  sustituir 
PRINT»  cuando  se  usa  el  canal  de 
comandos,  sin  tener  que  abrir  el  mismo 
canal. 

El  "wedge”  se  explica  en  la  sección 
sobre  el  Programa  Soporte  del  DOS  en  la 
página  14  del  manual  y en  la  salida  del 
programa  “How  lo  Use".  Algunas  versio- 
nes del  “wedge"  disponen  de  más  coman- 
dos que  los  que  se  listan  en  el  libro. 
Hablar  de  todos  ellos  sale  de  los  límites  de 
este  artículo,  pero  si  se  lo  consultas  a un 
usuario  de  la  1541  más  experimentado,  a 
lo  mejor  te  puede  ayudar. 

Eos  usuarios  más  experimentados  de  la 
unidad  de  discos  utilizan  el  "wedge"  con 
mucha  frecuencia  y pocas  veces  usan  los 
comandos  más  largos.  Tú  también  lo 
puedes  utilizar,  si  quieres.  Hemos  espe- 
rado hasta  el  final  del  articulo  para  hablar 
del  “wedge"  para  que  pudieras  entender 
bien  las  operaciones  de  la  1541  antes  de 
coger  este  atajo,  y también  porque  no 
todos  los  usuarios  de  la  1541  disponen  de 
un  programa  "wedge"  para  su  ordenador. 

A propósito,  el  origen  del  término 
"wedge"  (o  cuña)  es  un  misterio.  Algunos 
dicen  que  este  nombre  poco  común  viene 
de  la  forma  del  símbolo  "más  que"  que  se 
utiliza  para  llamar  al  programa,  mientras 
que  otros  dicen  que  viene  de  la  manera  en 
que  los  comandos  nuevos  se  introducen 
mediante  una  cuña  ("wedge")  en  el  intér- 
prete Basic.  Pero  a mi  me  han  dicho  que 
ninguna  de  las  dos  cosas  es  cierta.  Como 
tantas  otras  palabras  de  informática,  ésta 
es  una  abreviatura.  ¿Porqué  la  palabra 
"wedge"?  ¡Nosotros  los  expertos  nunca 
damos  explicaciones!  (Wc  Expcrts  Don't 
Cive  Explanations). 

Ahora  que  has  visto  todas  las  operacio- 
nes básicas  de  la  1 54 1 y las  has  consultado 
en  el  manual,  podrás  entender  bastante 
bien  el  funcionamiento  de  tu  unidad  de 
discos.  Sin  embargo,  como  hemos  dicho 


antes,  sólo  hemos  tocado  la  superficie  de 
todas  las  capacidades  de  la  1541. 

El  resto  del  manual  contiene  la  clave  del 
resto  de  las  cosas  que  puedes  hacer.  Des- 
pués de  haber  trabajado  un  poco  con  la 
1541.  a lo  mejor  te  apetece  conocerlas 
para  descubrir  lo  que  puedes  hacer. 

INSTRUCCIONES  EN  DISCO 

Existen  unos  comandos  adicionales  que 
permiten  al  usuario  teclear  instrucciones 
cortas  para  la  unidad  de  discos.  Se  carga  y 
se  ejecuta  el  "VIC-20  Wedge"  para  un 
programa  VIC-20,  y un  "C-64  Wedge" 
para  un  C-64. 

Para  cargar  un  programa,  ahora  podrás 
teclear  una  barra  de  fracción,  seguida  del 
nombre  del  programa.  El  signo  / significa 
cargar  de  la  unidad  de  discos.  Por  ejem- 
plo. se  teclea  /INVASION  para  cargar  el 
programa  llamado  Invasión. 

Se  teclea  > o @ para  sacar  en  pantalla 
el  estado  actual  de  los  errores.  Se  teclea > S 
o @S  para  sacar  en  pantalla  el  directorio 
sin  borrar  el  programa  actual. 

PROGRAMA  COPY/AI1 

El  programa  Copy/All,  escrito  por 
Jim  Buttcrfield,  puede  ser  usado  para 
copiar  ficheros  de  una  unidad  a otra  si  las 
dos  unidades  van  conectadas  al  mismo 
ordenador.  Primero  es  necesario  cambiar 
el  número  de  dispositivo  de  una  unidad  de 
8 a 9.  mediante  el  uso  del  programa  Disk 
ADDR  Change. 

Se  carga  y se  ejecuta  el  programa  Disk 
ADDR  Change.  después  de  los  mensajes; 
a continuación,  se  carga  y se  ejecuta  el 
programa  Copy/All.  Esto  te  permite 
copiar  del  periférico  8.  unidad  0 (la  uni- 
dad no  cambiada)  al  periférico  9.  unidad  0 
(la  unidad  que  acaba  de  cambiarse). 

El  disco  en  que  se  va  a realizar  la  copia 
no  debe  llevar  la  muesca  de  protección 
tapada,  y es  buena  idea  pegar  un  trozo  de 
cinta  adhesiva  encima  de  la  muesca  de 
protección  del  disco  que  se  va  a copiar. 

PRINTER  TEST 

El  programa  Printer  Test  imprime  una 
lista  de  caracteres  en  un  formato  que  per- 
mite una  fácil  comprobación  de  las  capa- 
cidades mecánicas  y electrónicas  de  la 
impresora. 

VIEW  BAM 

El  programa  View  BAM  permite  que  el 


Tabla  I.  Instrucciones  del  programa  “How  to  Use"  en  el  disco  Test/Demo. 


0 

"1541test/demo" 

zx  2a 

13 

"how  to  use" 

prg 

S 

"how  part  lwo" 

Pfg 

4 

"vic-20  wedge" 

Prg 

1 

“c-64  wedge" 

prg 

4 

"dos  5.1" 

prg 

11 

"copy/all" 

prg 

9 

"printer  test" 

• prg 

4 

"disk  addr  change" 

prg 

4 

“dir" 

prg 

6 

"view  bam" 

prg 

4 

"check  disk" 

prg 

14 

"display  t&s" 

prg 

9 

"performance  test" 

prg 

5 

“sequential  file" 

prg 

13 

"random  file" 

prg 

558 

“blocks  free 

Eig.  I.  Representación  en  pantalla  del  directorio  del  disco  Test/Demo. 
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programador  examine  el  contenido  de  los 
sectores  que  componen  el  mapa  de  dispo- 
nibilidad de  bloques,  o el  RAM.  El  BAM 
es  la  tabla  utilizada  por  el  DOS  para  iden- 
tificar los  bloques  que  han  sido  asignados 
a los  fichero?  en  el  disco. 

DISPLAY  T&S 

El  programa  Display  T&S  permite  que 
el  programador  examine  el  contenido  de 
un  bloque  del  disco,  especificando  los 
números  particulares  de  pista  y sector  que 
identifican  dicho  bloque. 

CHECK  DISK 

Con  el  programa  Chcck  Disk  podemos 
comprobar  si  un  disco  nuevo  que  ha  sido 
formateado  es  utilizablc.  El  programa 
escribe  en  cada  bloque  para  comprobar  la 
capacidad  de  éste  para  almacenar  infor- 
mación. El  programa  también  identifica  y 
asigna  cualquier  bloque  no  utilizablc  en  el 
BAM  para  que  no  sea  utilizado  poste- 
riormente por  el  DOS. 

Se  pulsa  la  tecla  “return"  para  cargar  la 
segunda  parte.  Después  de  que  se  cargue, 
se  teclea  RUN.  se  pulsa  la  tecla  "rcturn”  y 
se  teclea  LOAD“HOW  PART  TWO",8' 

PERFORMANCE  TEST 

El  programa  Performance  Test  permite 
la  comprobación  de  las  capacidades  elec- 
trónicas y mecánicas  de  la  unidad  de  dis- 
cos cuando  sea  necesario.  Utiliza  este  pro- 
grama si  sospechas  que  la  unidad  ha 
sufrido  algún  daño. 

SEQUENTIAE  FILE  Y RANDOM  FILE 

Estos  dos  programas  se  incluyen  como 
ejemplos  de  programación  que  pueden  ser 
usados  como  una  guia  general  para  que  el 
usuario  escriba  sus  propios  programas. 
También  demuestran  la  técnica  de  com- 
probar el  canal  de  errores  después  de 
realizar  cada  acceso  a la  unidad  de  discos. 

Dado  su  tamaño,  tanto  el  Scqucntial 
File  como  el  Random  File  necesitan  el 
cartucho  de  ampliación  de  3K  para  cargar 
correctamente  en  el  VIC-20. 

El  programa  DOS  5. 1 no  se  carga  direc- 
tamente. sino  que  lo  carga  el  programa 
“C-64  Wedge". 
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Aventuras  en  el  Desierto 


Tendrás  que  luchar  contra  las 

adversidades  del  desierto  y huir  de  unos 
de  unos  perseguidores  tenaces  para  poder 
sobrevivir  el  recorrido.  Si  no  lo  logras,  sólo 
servirás  de  postre  para  los  buitres. 


En  "Aventuras  en  el  Desierto”,  un  juego 
de  habilidad  para  el  V1C-20  no 
ampliado,  tu  conduces  un  jeep  a través  de 
un  terreno  lleno  de  obstáculos,  intentando 
escaparte  de  unos  perseguidores  despia- 
dados que  viajan  en  un  helicóptero  pro- 
visto de  unas  bombas  rastreadoras,  atraí- 
das por  el  calor. 

Si  tü  puedes  desviar  el  tubo  de  escape  de 
tu  jeep  para  que  apunte  hacia  arriba,  con- 
fundirás las  capacidades  rastreadoras  de 
las  bombas.  Si  eres  capa?  de  evitar  las  zan- 
jas y los  cáctus  gigantes,  a lo  mejor  consi- 
gues llegar  a tu  destino. 

La  barra  de  espaciado  desplaza  el  jeep 
hacia  arriba,  para  que  pueda  saltar 
encima  de  las  zanjas  y los  cáctus.  La  tecla 
F7  desvia  el  tubo  de  escape  para  que  con- 
funda a las  bombas  rastreadoras  que  son 
lanzadas  con  cuidado  desde  el  helicóptero. 

La  letra  que  aparece  a pie  de  pantalla 
indica  la  distancia  recorrida. 

El  recorrido  tiene  cuatro  secciones,  de 
la  A a la  D.  El  recorrido  presentado  en  el 
listado  es  medianamente  difícil,  pero  yo  te 
enseñaré  a escribir  un  programa  más  difí- 
cil. por  si  éste  te  resulta  demasiado  fácil. 
(0  a lo  mejor  quieres  que  sea  más  fácil 
para  tu  hermana  la  pequeña,  claro). 

Este  programa  demuestra  una  de  las 
características  más  potentes  del  Basic- 
Microsoft  la  capacidad  que  tiene  para 
crear  gráficos  animados.  Como  progra- 
mador principiante,  pronto  descubrirás 


VIC-20 

NO  AMPLIADO 


que  cuando  los  gráficos  animados  se 
introducen  en  pantalja  mediante  un 
“Pokc"  la  acción  para. 

En  este  momento,  hay  muchas  personas 
que  renuncian  a seguir  trabajando  con  el 
Basic  y empiezan  con  el  Forth  o el 
Ensamblador  Codc.  No  reconocen  que  el 
imprimir  los  "strings"  en  Basic  se  apro- 
xima a ser  un  movimiento  de  memoria  en 
lenguaje  máquina.  El  intérprete  igual- 
mente tiene  que  seguir  la  pista  de  muchas 
cosas  y realizar  muchas  tareas,  pero 
resulta  increíblemente  rápido. 

Para  comprobar  lo  rápido  que  resulta 
esta  técnica,  prueba  el  siguiente  programa 
y consulta  el  manual  si  no  entiendes  cómo 
funciona. 

10  A$=“(22  espacios)B(22  espacios)" 

20  FORI=  IT023 

30  PRINT  CHRS09)  MIDS(AS.I.22) 

40  NEXTI 
50  GOTO20 

Ahora  añade  este  retraso  de  tiempo 
para  que  puedas  ver  la  B pasar  por  la  pan- 
talla: 

35  FORT=1TOIOO:NEXT 

Podrías  decir  que  la  B iría  igual  de 
rápido  mediante  el  uso  de  los  “Pokes”, 
pero  recuerda  que  no  estamos  presen- 
tando un  carácter  sólo  con  este  programa: 
estamos  imprimiendo  22  caracteres,  cada 
uno  de  los  cuales  puede  ser  diferente. 
Además,  podemos  añadir  colores  distin- 
tos, y funcionará  igual  de  rápido. 

Para  operaciones  de  "Pokes"  hace  falta 
introducir  estos  valores  tanto  en  la  panta- 
lla como  en  la  memoria  de  color  de  panta- 
lla. y si  quieres  entrar  y salir  de  una  moda- 
lidad de  multicolor,  podrás  observar  que. 
en  cuanto  a rapidez,  el  uso  de  los  "Pokes" 
no  puede  competir  con  el  uso  de  senten- 
cias Print.  Prueba  este  programa,  y des- 


pués intenta  hacerlo  mediante  los  "Pokes". 
10  A$="(color  ncgro)*(color  rojo)*(color 
cian)*(color  morado)*(color  verde)* 
(color  azul)*(color  amarillo)*(cada 
cambio  de  color  y símbolo  debe  estar 
separado  por  dos  espacios). 

15  A$=A$+ AS+AS+ A$ 

20  FORI=lTO90 

25  PRINT  CURSI  19)  MID$(A$.I.28) 

30  FORT=ITO90:NEXT 
40  NEXTI 
50  GOTO20 

Esta  constituye  la  técnica  básica  utili- 
zada para  mover  el  suelo  debajo  del  jeep; 
un  “string"  distinto  desplaza  los  cáctus  a 
lo  largo  de  las  dunas.  Cuando  esto  se 
combina  con  las  capacidades  gráficas 
multi-colores.  podrás  ver  que  las  ruedas 
del  jeep  siguen  los  altibajos  del  terreno  sin 
usar  un  sólo  "Peek"  y solamente  dos 
“Pokes”. 

Las  ruedas  que  aparecen  encima  dé- 
cada duna,  se  forman  en  la  modalidad  de 
multicolores  del  mismo  color  de  carácter 
que  el  color  de  la  pantalla  para  que  no  se 
pueda  ver  la  parte  que  corresponde  a la 
rueda.  Luego,  al  hacer  un  "Pokc"  en  la 
memoria  de  color  en  la  posición  debajo  de 
las  llantas  de  las  ruedas  a un  color  de 
carácter  negro,  aparecen  los  neumáticos 
negros,  y siempre  en  el  suelo. 

Si  sustituyes  el  POKE  646.9  en  la  linea 
120  por  POKE646.8.  podrás  ver  que  los 
neumáticos  están  allí,  lo  que  pasa  es  que 
son  invisibles.  La  combinación  de  estas 
dos  técnicas  permite  que  se  realice  un  des- 
plazamiento horizontal  a una  velocidad 
aceptable. 

El  recorrido  que  se  hace  en  este  pro- 
grama se  compone  de  cuatro  "strings"  - 
B$(l-4).  Estos  "strings"  se  desplazan 
mediante  un  bucle  For...Next  comen- 

Commodore  World  Mayo  1984/69 


Tabla  I.  Explicaciones  de  las  variables  utilizadas  en  el  programa 
"Aventuras  en  el  Desierto" 

V - la  posición  de  la  bomba. 

CA  - la  posición  en  el  "string"  de  los  cactus. 

D - la  variable  de  control  para  el  jeep  saltando. 

C - una  variable  de  control  que  visualizará,  mediante  un  "Poke",  la  bomba. 

WC  - el  color  del  neumático,  blanco  o negro. 

SN  - posición  del  generador  de  sonido. 

SV  - posición  del  control  de  volumen  (también  color  auxiliar). 

DS  - lleva  el  cursor  a "Home"  y baja  al  nivel  de  la  carretera. 

SS  - una  linea  de  bloques  sólidos. 

FS  - lleva  el  cursor  a "Home"  y va  a la  posición  normal  del  jeep. 

CAS  - una  serie  del  cursor  a la  derecha,  un  cáctus  y a continuación,  más  cursores  a 
la  drecha. 


/ando  en  la  linea  1 10  y que  se  imprime  en 
la  línea  120. 

L.os  "strings"  BS  a su  vez  se  componen 
de  diferentes  combinaciones  de  AIS.  A2S 
y A3$.  Cada  “string"  BSd.  formado  en  las 
¡meas  5X5  y 586,  se  compone  de  cuatro 
“substrings".  Estos  "substrings"  se  en- 
cuentran en  las  lineas  580-583.  Se  compo- 
nen de  As.  Bs.  Cs.  Ds  y Es. 

Estos  caracteres  gráficos  especialmente 
creados  forman  el  suelo  (y  los  neumáticos). 

El  signo  @ constituye  un  bloque  com- 
pleto, y una  "A",  un  espacio.  Los  otros 
están  incluidos  dentro  de  estos  dos  extre- 
mos. En  estos  "substrings"  las  As  son  las 
zanjas,  los  signos  @ hacen  los  cáctus.  y los 
otros  causan  las  ondulaciones  del  terreno. 

Mi  consejo  es  que  te  inventes  nuevos 
recorridos,  cuando  hayas  dominado  éste, 
[.as  normas  para  la  creación  de  los 
“strings"  son  sencillas.  AIS  debe  iniciar 
cada  BS  y A2S  debe  finalizar  cada  BS.  Los 
primeros  22  caracteres  de  AIS  deben  ser 
¡os  mismos  que  los  últimos  22  caracteres 
en  A2S.  Yo  prefiero  que  el  terreno  no  sea 
demasiado  rocoso,  asi  que  normalmente 
me  paso  a la  siguiente  letra,  y además, 
creo  que  es  mejor  evitar  las  zanjas  durante 
los  primeros  22  caracteres  de  AIS  para 
que  el  pobre  jugador  no  se  estrelle  en 
seguida.  Pero  aparte  de  esto,  se  pueden 
crear  recorridos  fáciles  o difíciles.  Sim- 
plemente se  cambia  el  orden  de  los  63 
caracteres  del  "string". 

El  programa  está  compuesto  de  dos 


partes  y se  deben  de  salvar  en  cinta,  una 
detrás  de  otra.  El  primer  programa 
reserva  una  sección  de  memoria  para 
caracteres  especiales,  y a continuación, 
introduce  los  datos  en  la  memoria, 
mediante  un  "Poke"  para  la  creación  de 
los  caracteres  especiales.  El  uso  de  los 
caracteres  especiales  proporciona  a este 
programa  un  aspecto  de  gráficos  de  alta 
resolución. 

El  programa  utiliza  unos  caracteres  de 
doble  altura,  de  unos  ocho  pixels  de 
anchura  y unos  16  pixels  de  profundidad. 
Por  este  motivo  los  datos  se  ordenan  por 
grupos  de  dieciséis.  Si  te  apetece  modificar 
cualquiera  de  los  caracteres  especiales 
— por  ejemplo,  cambiar  el  jeep  por  otro 
tipo  de  vehículo — no  te  debe  resultar  difí- 
cil. La  primera  sentencia  Data  crea  el 


signo  la  segunda  la  A.  la  tercera  la  B. 
etc.  El  resto  del  programa  saca  en  pantalla 
unas  instrucciones  sencillas  y carga  la 
segunda  parte  automáticamente. 

Al  teclear  la  segunda  parte  del  pro- 
grama. debes  introducir  la  linea  una  como 
GOTO  510.  De  esta  forma  el  programa  no 
entrará  en  la  modalidad  de  caracteres  de 
doble  altura  aparte  de  pasar  a caracteres 
personalizados.  El  programa  se  puede 
parecer  una  guerra  con  el  abecedario, 
pero  te  permitirá  descubrir  tus  errores, 
dado  que  los  mensajes  de  error  salen  en 
inglés  como  piezas  sueltas  del  jeep. 
Cuando  parece  que  todo  funciona,  entra 
GOTO  500.  Omití  las  sentencias  REM 
dado  que  el  VIC  no  ampliado  no  dispone 
de  suficiente  memoria,  pero  te  ayudará  la 
Tabla  I. 


5@ 1 PQKE52 . 28  P0KE56 , 28  CLP 

510  F0RQ=7 1 68T07 1 68+26# 16-1  RENDA  PC 

KEQ . H NEXT 

5 1 5 PR I NT " C CLP ] C 3CRSRD 3 C 6SPC 1 CONTROL 
ES " PP I NT " [ 2CRSRD ] t SPC 3 1 RVS0N 3 ESPRC I 
0 C RVSOFF 3C2SPC3 HfiCE [ SPC ] SALTARE 3SPC 3 
E CRSRB 3 TU [ SPC 3 JEEP C SPC 3 SOBRE C SPC  3 LAS 

5 1 6 PP I NT " C CRSRB 3 [ SPC 3 ZANJAS E SPC 3 V C SPC  3 
LOSE SPC 3 CACTUS. " 

5 1 7 PP I NT " C 2CRSRB 3 C SPC  3 [ PVSON3F7E  PVSOF F J 
L SPC 3 GENERA t SPC  3 CALOR C SPC 3 PAPA " 

518  PRINT 

5 1 8 PP 1 NT " [ SPC 3 C0NFUND I P [ SPC 3 LAS [ SPC 3 
BOMBAS"  . " C CRSRIi 3 C4SPC 3 RASTREADORAS. " 
PQKE631 , 131  POKE 138. 1 

520  HRTA85 , 85 , 85 , 85 ,85, 85 , 85 . 85 • 85 , 8 

5.85.85.85.85.85.85 

521  DAT  A0 , 0 , 0 , 0 , 0 . 0 , 0 , 0 , 0 , 0,0, 0 , 0 . 0 , 

0 , 0 

522  DATA0, 32, 32, 136, 136, 136,32, 32, 85 
.85,85,85,85,85,85.85 

523  DATA32, 136, 136, 136, 32, 32, 85 . 85, 8 

5.85.85.85.85.85.85.85 

524  DATA 136, 136, 32,32, 85, 85, 85, 85, 85 
, 85 , 85 ,85, 85 , 85 ,85,85 

525  BATA32 , 32 .85,85 , 85 . 85 , 85 , 85 , 85 , 8 

5.85.85.85.85.85.85 

526  DATR0, 0, 0, 0, 0, 0, 0,7,4, 15, 15, 15, 1 
4 , 30 , 0 , 0 

527  DAT A0 ,0,0 , 0 , 0,8,0, 254 . 1 46 , 255 , 25 
5, 135,51, 121,252,252 

■528  DAT A0, 240, 136, 132, 130, 134,205,25 
5 , 255 , 255 , 255 , 255 , 254 , 254 , 8 , O 


523  DAT A8 , 8 , 0 . 8 , 8 ,0,1 32 ,254,254 , 255 • 

1 35 ■ 1 23 , 253 , 253 , 252 , 252 

530  DRTA0, O, 0, 0, 0. 16, 16, 16,80,84,84, 
■.  112, 16,24, 126 

531  DAT A0 . 48 , 1 20 ■ 284 , 204 . 204 , 1 20 , 48 , 
0,0, 0.0, 0.0, 0,0 

532  DRTR254 ,4,4,126,147,147, 255 . 255 , 

127.62. 16.0. 0.8.0.0 

533  DATA 1 6 , 0 , 0 • 0 , 8 , 138,137. 2 42 . 1 5» , 0 
,0,0, 0,0, 0,0 

534  DATA  143, 4,4, 1 26 ,147,147 , 255 , 255 , 

127.62. 16.0. 0.8.0.0 

535  DATA240 ,0,0 , 0 ,0,133, 1 92 , 245 . 1 56 , 
0 • 8,0, 0,0,0, 0 

536  DA  TRO , 1 28 • 1 68 , 1 68 , 1 32 • 1 76 , 284 , 24 
2 • 253 • 119, 28 3 . 20 3. 123, 4 3 • 8 ■ 1 1 

5 37  DA TRO ,0,4,10,17,33,113 , 25 3 , 254 , 2 
55 , 255 , 255 , 255 , 254 . 252 • 60 

5 33  PH T A0 , 8 . 8 , 8 .0.0, 8 .64  234, 755 • 25 1 
•255.59,31 ,202^47 

539  DA  f A0 , 8 , 68 , 1 95  • 0 ■ 0 . ,;.0  1 95  - 0 , 8 >_.0 
. 195, 8 . 0, 68, 195 

548  DA  TA4 . 22  ■ 30 . 31  .63. 6 3, 6.3 . 6.3  2 ! • ' 1 

• 30, 38, 14, 14 ,14,4 

541  DRTA68, 84, 40, 16, 56- 5t> -56.56. 16  0 

• 0 . 0 • 0 • 8 , 8 . 8 

542  DA  i h65  ■ 65  • 0 . 9. 20, 20  , ..'0 . 8,  ti . .."  1 1 

• 28 , 20 , 28 .20, 28 

543  DAT  A 1.0.  l k . 20  20 , 20  161  ' . 1 • . 
,20.20, 16,0, 1 

544  DA ' **65 ■ 0 .4.20.2!  .71  • 2 1 .21,21  • 2 ! 
21  21 , 20,4,8, 65 

545  DATA!  0 16,20-20  20,210,20  70  70 
20  ■ 20  • 210 , 16.  0 . ! 
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Rutinas 


Este  programa  no  es  solamente 
divertido;  te  debe  inspirar 
para  que  tú  también  experimentes. 


Las  semencias  bucle  del  juego  principal 
forman  la  primera  parte  del  programa, 
[.incas  85-87:  una  subrutina  que  tira  la 
bomba  y comprueba  si  ha  dado  en  el 
blanco  o no. 

Lineas  200-250:  el  fin  del  juego. 

Lineas  250-300:  la  rutina  de  chocar  contra 
un  cáctus. 

Líneas  300-400:  la  rutina  de  choque. 
Lincas  480-481:  los  datos  que  mueven  el 
helicóptero. 

Lineas  500  etc.:  simplemente  inicialización. 
El  programa  está  lleno  de  trucos  que  yo 


aprendí  después  de  pasar  muchas  horas  de 
programación  con  programas  de  archivos, 
bases  de  datos  y procesadores  de  textos, 
asi  que  puede  contener  algunas  cosas  nue- 


vas para  los  aficionados  a inventar  juegos. 
Este  juego  no  solamente  resultará  diver- 
tido. sino  que  espero  que  te  inspire  a expe- 
rimentar también. 


1 OUTO500 

85  POKEV-22,  19  P0kEV+L-22, 10  P0KEV,2 
I PoKEV+L . 0 V=V+22  P0KE3N, 200  0=1 

86  1 F V=7904  T HENPR I HTFf ; " [ CRSP'J  3 Rfififi" 
GOTÜ300 

87  RETURN 

1 1 0 F0R0= 1 T 04  PQKE 7924 ,21+0 
llí.  FOPW=1TO230 

120  P0KE646, 9 PP1NTD* ; MIDt <B# < Q> , M . 2 
2) 

122  P0KE38662, WL  P0KE38662, WC 
1 25  1 FCH  ...  V.THENPR I NTB* , " t CRSRU 1 " ; M 1 1' 
t' C HÍ,C8, 23 > GO 10130 
1 27  I FPEEK  < 7920  > =0THENCfi=l 
1 30  PR I NT " t HÜM  J L REI'  J " 3PC  < X+22  > " ñNOFl " 
PQt  ESN, 200 

1 60  I F D THENPR 1 N TFI . " [ CRSRU ] [ BLU ] FGH 1 
" PR  I NT  " t BLK  ] flHKfiK  " HC=9  D=D-1  B=1  L> 
OTO 180 

165  IFB THENPR INTFt, " t CRSRU Dflfiññ"  W'> 
8 B=0 

170  PRINT'  ti "CBLU3FGHI"  IFPEEK< 197 )= 
32  T HEN£i“6 

175  I FPEEK1 7904 > = 1 00 T 0300 

17 7 I FPEEK ( 7883 > = 1 0T HENOOSUB250 

130  REflüX  I FX=77THENPR I NTCHRÍ  < 1 9 > SPC 

• 20  ' "hhh"  RESTORE  GOTO 180 

1 82  PR  I NT  " [ H0M 1 1 PE  I'  ] " SPC  < X+22  > " fiLMftfl 

1 85  1 FX=3THEN 1 FPEEK < 36878 ) -26THENGÜS 
IJB85  GOTO  189 

188  P0KESN • 0 IFCTHENPOKESV, 26  P0KEV- 
22.19  P0KE'''+K-2:?,  10  - V=7750  C=0 

189  I FPEEK. < 1 97 > =63THEN I FD=0THENPQKES 
V, 42  0*1  I Fl  :=3THENRERBX  GOTO 189 

190  Cfl*Cfl+l 

199  NEXT  NEXT 

200  PR  I NT  " t CLP  ] " P0KE36869 , 240 : P0K.E3 
6867 , F'EEK  • 36867:' ÑNH254 

2 1 0 PR I N T " [ 4C PSPB ] C 3CRS RP 1FEL1CI BftI'E 
S"  ENB 

250  F0RI=16T031STEP.3  P0KESV, I POKES 
N ■ 249 

254  F0RI -16T031STEP.3  P0KESV, I POKES 
11,249 

260  IF i ! 24THENP0F E7860, 20  POKE7360+I 
■ O 

280  FORT  = 1 TO40  NEXT 


285  NEXT  FORT=1TO2000  NEXT 

295  POKE7860, 1 POKESN.O  P0KESV • 26 ' RE 

TURN 

300  P0KESV,  31  POKESN..200 
:05  P0KESV, 31  POKESN,200 

3 1 0 PR I NTF t ; " t BLU ] ÑFGH 1 " 

31 1 P0KE38622, 9 

320  FORT=1TO200  NEXT 

330  F0RS=3 1 T0 1 6STEP- 1 

332  P0L  ESV , S ' ’OKE 36876 . 0 P0K E ¡687 7 . 1 

jC 

:40  PRINTF  f . "RhFihhhCCRSRIi  J I3CRSRL  J CBLU  J 
hPi  iR  [ r p:¿plj  J [ C RSRL  J [ BLK  3 T " 

360  I 0RT=1 TO100  NEXT 
•70  NEXT  POKE 368.7.0  PON 
•180  DRTH19 .19. 18, 18-1  7, 1 7 .16, 16 . 15, 1 
5, 14. 14. 13, 13. 12. 12,11  10, 10 
i- : 1 HHTR9 , 9 • 8 . 8 • 7,  7 , 6, 6, 5, 5 • 4 , -1 . 3 , 3 . 

3, 3. 3. 3.3. 3, 3,2. 1 0. -1 .+2. 77 

I I68i  55  I 01  1 S6867,FEE1  < ¡68 

• 79  ¡1 

••10  f - 30720 

•;,:  :ij  mIÍ-  “i  CI'l.l".  BL  I'EI'L  b L'EOEI».  BL  '-E  L'BBB 
L'l  DhhhñDC BC  DEE' 'BEDE0EC BC  EL ' B'  IK 

• . . M2I- ' BE  I'1  I"  L'L L'CBDEOL l".  i».  BHHHHl' 

•I  v>.  tu  Lü  •<*Ll'l«.  I'í  L"  h ' L'L  I".  BBL  'SEBCBEI' 

' .83  H it~  " CC HHHRBC  L'L 0E  DBE'iEBL  L'L  BHRNPl' 

B'.  DEM  l’í'.BHNNHBi.  BEBEDE'-Ei  1 ' ÜL'Bi  C J-:«  I". 

S'35  3í'  1 '“Hl  í *-M3l  +ft2í  Eí'2'-HLU 
HJI IHI T+H2T 

• *• ! • • Hlí*H2t+fl3*+H2>  fcí  • 4 • -Ht  I ♦ 

Hjf  ‘HJÍ  4-H3Í 

' .V0  LH  = " t HOM  J r 1 0 CRSRU  ] " F *=LEF  i t ■ Bt . 

10 • + " t C RSRR  J " 

592  CFU  -“El 911  *••■  .RR  J L CRN  ' M fMft L 2,  X RSR»  I 

S '4  !;.$.=  " IOId|BiaiBfBin|d!d|d|dldrdl«|dlá|dld|áldlO|í.  " 

595  POI  E64 6,10  PR  1 NT  " IcLPJ  " , l'l  • i 1 
,S*  WC— 8 C 8=26  X=19  V=7728  SV=36878 
SN=-36877 

597  PRINT  "[ROM]"  F0RI  = 1T08  PPINfHHFi 
HS"  NEXT  POKESV . 26 

598  PR I NTF t-"[ RED i FGH I " 

599  GOTOllO 
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VIDEOCASINO 

El  Bombardero  Loco 


u na  ciudad  está  siendo  atacada 
por  unas  bombas  en  forma  de  letra;  los  habitantes 
temen  por  su  vida.  ¿Dónde  está  Superman 
cuando  l o necesitamos?  Solamente  tu  agilidad  mental 
y lo  bien  que  conoces  el  teclado  pueden 
salvar  la  ciudad. 


Que  es  más  importante:  aprender  con 
tu  ordenador  personal  o divertirte 
con  el?  Seguramente  eso  depende  de  que  si 
eres  un  niño  o el  padre  del  niño.  Pero  "F.I 
Bombardero  Loco”  resulta  tan  divertido 
como  educativo. 

Con  este  juego  puedes  aprender  a escri- 
bir a máquina,  o por  lo  menos  familiari- 
zarte con  el  teclado.  Y como  cualquier 
persona  metida  en  el  mundo  de  los  nego- 
cios sabe,  los  teclados  están  por  lodos 
lados. 

F.I  “Bombardero  Loco"  ataca  Cual- 
quier Ciudad.  F.I  Mundo,  con  unas  bom- 
bas realmente  malévolas,  en  forma  de 
letras.  Puede  atacar  muy  de  prisa  o muy 
despacio,  como  tú  quieras.  La  facilidad 
con  que  tú  manejas  el  teclado  debe  fijar  la 
velocidad. 

IJna  sirena  rompe  estrepitosamente  la 
tranquilidad  de  la  pantalla  del  titulo  y las 
bombas  (de  letras)  empiezan  a atacar.  El 
sonido  que  lleva  el  programa  es  realmente 
bueno,  y cuanto  mejor  el  altavoz  del 
monitor  o de  la  televisión,  mejor  resultará 
el  sonido. 

Te  piden  que  elijas  una  velocidad,  y 
empieza  la  diversión.  Una  ciudad  cubierta 
de  niebla  sale  en  pantalla.  De  repente,  la 
pantalla  te  avisa  mediante  una  alarma 
destellante  de  “Alerta  Roja". 

“El  malo"  se  asoma  entre  las  nubes. 
Pero  no  le  hagas  mucho  caso  solamente 
está  intentando  distraerte  para  que  la 
bomba  lanzada  al  azar  pueda  llegar  a 
tierra. 


C-64 


A veces  la  bomba  (en  forma  de  letra)  sale 
por  debajo  del  "Bombardero  Loco",  pero 
normalmente  cae  desde  otro  lugar  del 
cielo.  Tú  tienes  que  reconocer  la  letra  y 
pulsar  la  misma  letra  en  el  teclado  antes 
de  que  la  bomba  gire  y explote  sobre  la 
ciudad. 

Si  tú  eres  rápido  y aciertas,  la  bomba  se 
destruye  a si  misma,  caerá  y explotará. 
Entonces,  el  "Bombardero  Loco"  se 
vuelve  a esconder  entre  las  nubes. 

Pero  no  te  vayas.  El  volverá  para  des- 
cargar un  total  de  21  bombas  o las  que 
necesite  para  ganar. 

Si  consigues  responder  con  las  mismas 
letras,  tú  ganarás,  y Cualquier  Ciudad  te 
lo  agradecerá  con  un  fuerte  aplauso.  A 
continuación,  el  programa  te  da  la  opor- 
tunidad de  elegir  una  velocidad  y volver  a 
empezar. 

Pero  si  fracasas,  la  ciudad  explota,  te 
indican  el  número  de  bombas  que  conse- 
guiste parar,  y te  dan  la  oportunidad  de 
jugar  de  nuevo. 

A propósito 

Ten  en  cuenta  también  que  una  niebla 
mañanera  aparece  durante  la  primera 
parte  del  ataque.  Después  de  haber  ata- 
cado diez  veces,  el  "Bombardero  Loco"  te 
deja  descansar  un  poco.  Cuando  el  ataque 
vuelve  a comenzar,  la  niebla  desaparece, 
pero  una  nube  cada  vez  más  espesa  difi- 
culta el  reconocimiento,  y por  lo  tanto,  la 
destrucción,  de  las  bombas.  Después  de 
cada  ataque,  la  niebla  o las  nubes  se  van 
espesando  y subiendo  cada  vez  más. 
Tabla.  Explicación  linea  por  línea  del 
programa  "Bombardero  Loco”. 

3  Título  y sirena. 

4  Inicialización  del  sprite.  BX  y 
BY  son  las  variables  para  la 
posición  del  sprite. 


5 Inicíaliza  las  variables  de  sonido 
y fija  el  color  del  “Bombardero 
Loco”  en  amarillo  mediante  un 
“Poke". 

6 Solicita  la  velocidad  y posi- 
ciona  el  "Bombardero  Loco" 
en  la  esquina  superior  izquierda 
de  la  pantalla  mediante  un 
"Poke". 

7-15  Introduce  la  velocidad  de  las 
bombas. 

16  MC  es  la  variable  que  cuenta 
las  bombas. 

20-22  Convertir  la  pantalla  en  negro 
mediante  un  “Poke"  y verificar 
que  ha  transcurrido  la  mitad 
del  juego  — MC>20. 

23-25  Esta  es  la  subrutina  que  indica 
la  mitad  del  juego.  Si  MC  :=» 20. 
el  programa  la  ejecuta. 

30  TT  sigue  la  pista  de  la  bomba 
en  la  pantalla. 

31-36  La  "Alerta  Roja"  y la  sirena. 

37  Comienza  la  doble  verificación 
de  la  entrada  en  el  bucle 
principal. 

40  N seleccionará  dónde  aparece- 
rán las  bombas  en  la  pantalla 
(tab=N). 

50  La  pantalla  se  vuelve  negra 
mediante  un  "Poke"  y des- 
plaza el  cursor  a la  posición 
"Home"  (CHR$(I9)). 

70-82  Define  la  ciudad  y el  cielo. 

94  CR  prohíbe  que  la  niebla  y las 
nubes  sobrepasen  los  limites  de 
la  pantalla. 

95-98  Mediante  unos  “Pokes"  al 
azar,  la  niebla  o las  nubes  salen 
en  pantalla. 

100  LE  selecciona  la  letra  que  será 
lanzada  como  bomba. 
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1 10  Asegura  que  la  bomba  es  una 
letra  y no  un  número  ni  un 
símbolo  gráfico. 

120  GF.TKS  empieza  a buscar  una 
respuesta  del  teclado  para  la 
bomba  en  forma  de  letra. 

130  Si  la  respuesta  es  correcta,  esta 
subrutina  llama  la  explosión  en 
la  rutina  155-250. 

155-250  La  letra  se  cae,  explota,  y el 
Bombardero  Loco  se  esconde. 

170-178  La  bomba  parece  explotar. 

200  El  sonido  se  apaga  mediante 
un  “Pokc”. 

250  Incrementa  el  contador  MC. 


Hace  desaparecer  el  sprite 
mediante  un  "Poke"  y vuelve  a 
recoger  otra  bomba. 

300-350  Sonido  de  la  bomba  cayendo. 

310  Convierte  la  N (valor  del  tab) 
en  el  valor  para  el  ángulo  del 
giro  de  la  bomba  lanzada. 

311-312  Mantienen  la  bomba  dentro  de 
los  limites  de  la  pantalla. 

360  Detecta  el  momento  en  que  la 
bomba  llega  a la  ciudad. 

370  Borra  las  letras  y deja  una  hue- 
lla roja  donde  éstas  se  encon- 
traban. 

800-808  La  pantalla  y la  ciudad  parecen 


explotar. 

810-820  Ultima  pantalla. 

820  Vuelve  a sonar  la  sirena. 

830-854  Pregunta  al  jugador  si  quiere 
seguir  o no. 

1050-1054  Sonido  de  la  explosión. 

2000-2028  Pantalla  del  titulo. 

2029  Lee  las  lineas  Data  del  sprite  c 
introduce  a éste  en  la  correcta 
posición  de  memoria  mediante 
un  “Poke". 

2030-2080  Sonido  de  la  sirena. 

4000-4070  Rutina  del  ganador. 

6000-6003  Lincas  Data  que  definen  el 
sprite  del  Bombardero  Loco. 


I REM  MAD  L B0MBER 

3 GOSUB2005 

4 V»53248 : POKE V+2 1,0  POKE2042 , 1 3 ■ BX= 

80  BV=30 

5 SV=54296 : SW®54276  SA-54277  SH=5427 
3 : SL-54272 : JUMP®0  : POKEV+4 1 , 7 

6 PR I NT " VEL0C IDADCSPC] DEL C SPC ] JUEGO " 

: POKEV+4 , BX  POKEV+5 ■ BV 

7 PRINT  PRINT" 1-SUPERC SPC] RAPIDO"  PR 
INT"2-RAPID0"  PRINT"3-MEDI0"  PRINT"4 
-LENTO" 

8 I NPUT " 5-SUPER C SPC ] LENTO C 6SPC 3 C 6CRSRU ] 

" j XP 

s' I FXP= 1 THENSP*0 
10  IFXP=2THENSP«75 

II  IFXP=3THENSP=150 

12  IFXP=4THENSP=300 

13  IFXP®5THENSP®600 

1 4 I FXP>5THENPR I NTCHR* (147): Q0T06 

15  I FXPC 1 THENPR I NTCHR* < 1 47 ) : G0T06 

16  MC=0  PRINTCHR*( 147) 

20  IFMO20THEN4010 

21  I FUCO  1 0GOTO30 

22  IFMC*10THENFORX*1TO4  P0KE53281,1 
POKE53280, 1 : P0KE53291 , 0 : POKE53280, 0 
NEXTX 

23  PRINTCHR$<147)  F0RX-1T07  PRINT  NE 
XTX 

24  PR  I NTCHR*  ( 1 8 ) " C SPC ] MUY [ SPC ] B I EN-E 
STRS C SPC ] EN [ SPC ] LRC  SPC ] M I TRD  C SPC ] DEL 
C SPC] JUEGO" : PRINTCHR*( 19)  JUMP-0 

25  GOSUB2031 

30  TT-1 ; X®0 

31  FORLP-0TO2 

32  P0KESV ,15: PQKESW , 33  = POKESfi , 0 : POKE 
SH, 45 : P0KESL, 0 

33  PR I NTCHR* (19)" ALERTA [ SPC ] R0 JA-EL C SPC ] 
BOMBARDERO  C SPC ] LOCO  C SPC ] SE  C SPC ] ACERC 

A"  F0RL0® 1 T0 1 00 : NEXTL0 

34  PR I NTCHR* (19) CHR* < 1 8 7 " ALERTA  C SPC ] 

R0 JA-EL [ SPC ] BOMBARDERO [ SPC ] LOCO  C SPC ] 

SE C SPC] ACERCA" 

35  P0KESV  ,15  P0KESW , 33  F'OKESA  - 0 : POKE 
SH, 0 : P0KESL, 0 POKE V+2 1 , 4 

36  F0RL0* 1 TO40 : NEXTL0 : NEXTLP 

37  IFK*=CHR*(X)THEN40 

40  N-INT(RND(1)*38)+1 

41  I F JUMP>0THENGOTO82 

42  JUMP-1 

50  P0KE53281 , 0 POKE53280, 0 PRI NTCHR* 

(5) , CHR*( 19) 

70  FORX=0TO39  P0KE1944+X, 120  P0KE562 
16+X, 7 : NEXTX 

75  FORX=0TO3LD=INT(RND(1)#30)+1  P0K 


E1904+LD, 1 02  P0KE56 1 76+LD , 13 
77  POKE 1 864+LD , 92 : P0KE56 1 36+LD , 13  NE 

XTX 

80  FORX=0TO5  LD=INT(RND( 1 )*35)+l  P0K 
E1904+LD, 102  P0KE561 76+LD, 1 NEXTX 
82  FORX=0TO39  POKE 1 024+X , 42  = P0KE5529 
6+X, 12  NEXTX 

94  CR*CR-40  IFCR<-800THENCR=-300 

95  FORX=0TO24  LD*INT(RND( 1)*35)+1 

96  POKE 1 864+LD+CR , 42 : P0KE56136+LD+CR 
, 1 NEXTX 

97  FORX-0TO4  LD= I NT ( RND ( 1 ) *35 ) + 1 

98  P0KE1 144+LD, 42  P0KE55416+LD, 1 NEX 
TX 

100  LE®INT(RND(64)*90)+1 
1101 FLE<65ORLE>90GOTO 1 00 
120  GETK*  IFK*=" "THEN302 
130  I FK*®CHR* ( LE ) THEN1 55 
140  GOTO302 

1 55  PC'KESV  ,15:  P0KESW , 1 33  POKESfi , 0 : P0 
KESH, 0 : P0KESL, 130 

156  F0RFRV=1T02 

1 57  BX*BX+4  BV=BV-8  POKEV+4 , BX  P0KEV 
+5,BY 

170  PRI NTCHR* ( 1 3>CHR*( 1 45)CHR*( 145)T 
AB(N) ; : PRINT"/" 

1 72  PR I NTCHR* ( 1 3 ) CHR* ( 1 45 ) C HR* ( 1 45 ) T 
AB(N) ; PR I NTCHR* ( LE ) BX=B.';+4  BV=BV-8 

173  PRI NTCHR* ( 1 3 )CHR* (145) CHR* ( 1 45 > T 
AB(N),  PRINT"-"  POKEV+4, EX  POKEV+5, B 
V 

174  PRI NTCHR* ( 13)CHR*( 145)CHR*( 145)T 
Afi(N) ; PRINT"*"  BX=BX+4  BV*BV-8 

1 75  PR I NTCHR* (13) CHR* (145) CHR* ( 1 45 ) T 
ftB(N), ; PR I NTCHR* ( 28 ) " . " POKEV+4 , BX 

176  PRI NTCHR*' 13)CHR*( 145)CHR*( 145)T 
AB(N) ; PRI NTCHR* ( LE  > : POKEV+5 . BV 

178  PRI NTCHR* (13) CHR* (145) CHR* ( 1 45) T 
AB(N) , PRINT" +"  PRI NTCHR* '5 1 

179  NEXTFRV 

180  POKESV, 15  POKESW, 129P0KESA, 15  P 
OKESH , 40 : POKESL , 200 

1 32  PQKEV+2 1,0  FORPL® 1 TO 1 00  NEXTPL 
185  POKESV, 0 POKESW, 0 POKESfi, 0 PGKES 
H, 0 POKESL, 0 

137  POKESV, 15  POKESW, 129  POKESA, 15  P 
OKESH, 40  POKESL, 200 

188  POKESV, 9 ■ FORPL® 1TO20  NEXTPL  POKE 
SV , 6 FORPL® 1 TO20  NEXTPL  POKESV , 0 

189  POKESW, 0 POKESA, 0 POKESH • 0 POKES 
L,  0 

1 90  POKESV , 1 5 POKESW , 1 29  POKESA ,15  P 
OKESH, 40  POKESL, 200 
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1 9 1 FORPL= 1 TO330 ' NEXTPL 
1 93  POKEV+2 1,0  = POKEV+5 , 24  = POKEV+4 , 60 

200  POKESV , 0 : POKESW , 0 ■'  POKESfi , 0 POKES 
H,0  POKESL, 0 

250  MC=MC+ 1 PRI NTCHR# < 1 9 > BX=60 • BV=6 
0: POKEV+2 1,0¡OOTO20 
302  POKESV, 15  POKESW, 13 : POKESfi, 240  P 
OKESH , 44 ; POKESL , 0 

304  POKESV,  0 '•  POKESW,  0 : POKESFl,  0 : POKES 

H, 0: POKESL, 0 

306  TW= I NT  < PHD ( 1 ) #2 ) 

308  I FTW=@THENBD= 1 

309  I FTW= 1 THENBD*- 1 

310  N*N+BD 

311  IFN<3THENN*3 

312  IFN>37THENN=37 

325  PRINTCHR*<13>CHR*(145)TAB<N>;  PR 
I NTCHR* (LE) 

350  FORL= 1 TOSP : NEXT 

360  TT=TT+1  IFTT=12THEN800 

370  PRINTCHR*< 145)TAB<N)CHR#(28)CHR# 

<46) : PRI NTCHR» (5) 

372  BX-BX+8  BV-BV+8 : POKEV+4 , BX  POKEV 
+5,  BV 

380  GOTO 120 

800  FORBB= 1 T05  P0KE5328 1,1' POKE33280 
, 1 • P0KE5328 1 , 0 ' POKE53280 , 0 NEXT 
802  POKEV+2 1,0: POKEV+4 , 24 : POKEV+5 , 60 

805  PR I NTCHR* <1 47 ) F0RX=1T05  PRINT  N 
EXT  PRI NTTFIB <13 )" OH CSPC  3 QUERIDO!  ! ! " '• 
GOSUB1050 

808  PRI NTCHR* ( 147) : FORX* 1 TOS  PRINT  N 
EXT 

8 1 0 PR I NTTAB ( 8 ) " T I ENES  C SPC  3 QUE  C SPC  3 S 
ER  C SPC  3 MAS  C SPC  3 RAP I DO " : PR I NT 

811  PR I NTTAB ( 9 ) " PARA  [ SPC  3 SFILVñR  [ SPC  3 
Lfi  C SPC  3 C I UDflB  C SPC ] DEL " 

812  PR I NT  PR I NTTflB ( 7 ) " »*** [ SPC  3 BOMBA 
RDERO  C SPC  3 LOCO  C SPC 3 **** " 

8 1 4 PR INT  : PR INTTflB < 5 ) " HASC SPC  3 DESTRU 

iDO";nc; " bombas-letra  cspc  3 ! ■■  ¡printch 

R#( 19) 

8 1 5 FORX= 1 TO 1 000  NEXTX 
820  GOSUB203 1 

830  PR I NTCHR* < 147) : FORX* 1 TOS : PRINT : N 
EXT  PR I NTTAB ( 5 ) " QU I ERES C SPC  3 JUGAR C SPC  3 
OTRA  [ SPC  3 VEZ  C SPC  3 < SXN  ) ? " 

840  GETA*  IFA*“" "THEN840 

850  IFA*»"S"THENPRI NTCHR* < 19)  G0SUB2 

031  CLRG0T04 

852  I FA#= " N " THEN860 

854  IFA*O"N"THEN830 

860  END 

1 030  FORXX=35TO0STEP- . 2 : POKESV , XX : PO 
KESW, 129 ■ POKESA, 15 : POKESH, 40 : POKESL, 
2O0 : NEXT 

1 052  FORXX-35TO0STEP  - . 2 • POKESV , XX  '•  PO 
KESW , 1 29 = POKESA ,15: POKESH ,40  POKESL , 
200  NEXT 

1 054  POKESV , 0 POKESW , 0 POKESA , 0 POKE 

SH,0  POKESL, 0RETURN 

2005  SV=54296 = SW=54276  SA=54277 : SH=5 

4273 : SL*54272 : V-53248 

2010  PRI NTCHR* (147) : P0KE5328 1,0  POKE 


► 


53280, 0PRINTCHR#(5) 

2020  F0RPT-1T06  PRINT : NEXT : PRI NTTAB < 

1 1 ) " EL  C SPC  3 BOMBARDERO [ SPC  3 LOCO " 

2022  PR I NT : PR I NTT AB  <1 3 ) " BV [ SPC  3 GAR V [ SPC  3 
FIELDS" 

2023  PRI NT  PRI NTTAB (18)" 1983" 

2024  FORX= 1 TO400 : NEXTX 

2025  PR I NT : PRI NT : PR I NT " TU C SPC 3 M I S I ON 
C SPC  3 ES  [ SPC  3 PROTEGER  C SPC  3 LA  [ SPC  3 C I IJD 
AD CSPC 3 DE CSPC 3 LAS" 

2026  PR  I NTTAB  ( 1 1 ) CHR*  <1 8 ) " C SPC  3 BOMBA 
S-LETRA! ! CSPC 3" 

2027  PR I NT " PESTRUVE C SPC  3 LAS  C SPC 3 BOMB 
AS-LETRA C2SPC 3 QUE C SPC  3 CA I GAN " 

2028  PRINT" PULSANDO C SPC 3 LA C SPC 3 M I SMA 
C SPC  3 LETRA  C SPC  3 EN  C SPC  3 EL  C SPC  3 TECLADO 
" FORX* 1TO 1000  NEXTX 

2029  PR I NTCHR* (19)  FORPR=0TO63 : READP 
Q : P0KE832+PR , PQ : NEXTPR 

2031  FORDL*0TO500  NEXTDL 

2035  FORL*0TO24  POKESL+L , 0 • NEXT 

2040  POKESL+ 14,5: POKESL+ 18,16: POKESL 

+3,1: POKESL+24 ,143: POKESL+6 , 240  POKE 

SL+4,65 

2050  FR=5389 

2060  FORFT*1TO50  FQ-FR+PEEK(SL+27)*3 
.5 

2070  HF=INT(FQX256)LF=FQ-HF#256  POK 
ESL+0, LF : POKESL+1 , HF 
2075  PR I NTT AB ( 1 0 ) " VAN C SPC  3 A C SPC  3 CAER 
C SPC  3 LAS  C SPC  3 BOMBAS " : NEXT : POKESL+24 , 

0 

2080  PRI NTCHR# (147)  RETURN 
4010  PRI NTCHR# (147): FORX- 1 TOS : PR INT : 
NEXT : PR I NTTAB  < 1 0 ) " T I ENES  C SPC 3 DEDOS C SPC 3 
MUV CSPC 3 HABI LES" 

4012  PR I NTT AB  < 1 6 ) " -TU  C SPC  3 GANAS- " : PR 
INT  PRINT 

4014  PRI NTTAB ( 7) "ESTALLASTE" ;MC, "BOM 
BAS-LETRA" 

4015  PRINT  PRI NT "LA CSPC 3 GENTE CSPC 3 CO 
NTENT A C SPC  3 TE  C SPC  3 LO  C SPC 3 AGRADECE  C SPC 3 

i " 

4040  FORL-0TO24  POKESL+L, 0 NEXT  POKE 
SL+0, 240  POKESL+ 1,33  POKESL+5 , 8 
4050  POKESL+22, 104  = POKESL+23, 1 POKES 
L+24 , 79 : FORN- 1 TOl 9 POKESL+4 , 1 29 
4060  FORXT* 1 TO 1 00 : NEXT : POKESL+4 ,128 
FORXT-1TO30: NEXT  NEXT 
4065  POKESL+22 , 0 POKESL+33 , 0 POKESL + 
24,0  POKESL+4, 0 

4067  POKESL+ 1,0: POKESL+0, 0 POKESL+ 1 , 

0 : POKESL+5, 0 POKESL+22, 0 POKESL+23, 0 

4063  POKESL+33, 0 

4069  FORX*0TO999  NEXTX 

4070  GOTO830 

6000  DATA0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0,0 
,0,0 

6001  DATA0, 0,0, 0,0,0, 12,0, 128,30,64, 

199, 152,32,224,218 

6002  DATA32, 176, 108,38, 184, 127,33, 14 

3. 255. 248.255. 254. 29. 254.0. 28 

6003  DATA7 ,255,157,3,255,248,1, 255 , 1 

93.0. 0.6.0.0.0.0 
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inriHSnnmp  UNA  NUEVA  GENERACION 

software  DE  VIDEOJUEGOS 


MUTANT  CAMELS 


SIREN  CITY 


COMMODORE  64 


Cass  1.900 


COMMODORE  64 


SKRAMBLE 


Cass  I 700 


CHOPfllTER 


Cari  8 1 70 


HUSTLER 


Cass  2.200 


COMMODORE  64 


• SPRITEMAN  I 900 

• FROGGER  64  I 700 

• SNAKE  I 800 

• ANIHILATOR  I 600 

• PAKACUDA  1 700 

• EXTERMINATOR  I 900 

• VORTEX  RAIOER  I 700 

• DEFENDER  64  I 700 

• LASER  ZONE  I 700 

• CMOPFLITER  8 1 70 

• ZAXXON  7 190 

• JUMPMAN  7 190 

• FORT  APOCAUPSE  6 290 

• FUTBOLIN  1 800 

• HORACIO  2 200 

• PROCESADOR  TEXTOS  3 300 

• MAILING  Y ETIQUETAS  3 300 

• CONTABILIDAD 

PERSONAL  3 300 

■ BASE  DE  DATOS 
FICHERO  3 300 

• ULTRABASIC  2.900 

• SINTHY  64  2 900 

• FORTH  TINY  2 900 


SINCLAIR  SPECTRUM- 


• PENETRATOR 

• 'iME  GAT6 

• EL  JUGADOR  DE  AJEORE7 

• ASTROBlASTER 

• COMECOCOS 

• HORMIGAS 

• TRAXX 

• DISEÑADOR  DE  JUEGOS 

• LA  PULGA  iBuGABOO' 

• BILLAR  AMERICANO 

• EL  PINTOR 

• MISILES 

• RAPTORES  DE  LA  GAlAXIA 

• WINGEO  AVENGER 

• INVASORES  & GALAXI ANS 

• FORTH 

• BASE  DE  DATOS 

• MATEMATICAS 

• ARITMETICAS  BASICAS 

• TUTOR 


APPLE 

900  PROG 


ATARI 

800  PROG 


REVENGE  MUTANT  CAMELS  Cas.  2 200 


SINCLAIR  ZX8 1 

100  PROGRAMAS 


DRAGON  32 

60  PROGRAMAS 


VIC  20 

200  PROG 


IBM 

350  PROG 


MOON  BUGGV 

Ya  a la  venta  en 


SOLICITE  GRATIS  CATALOGO  GENERAL  INDICANDO  EL 
ORDENADOR  SOBRE  EL  QUE  LO  DESEA 

CHIPS  & TIPS 


Cass  2 000 


El  Corta  Inglés  Sonltel 

Distribuidores  autorizados  » por  Correo 


Cass  2.200 


ENVIAR  A:  ¡ndHBCnmp  , Castellana,  1 79  Tel  65630 1 2.  Madrid  1 6^ 


Cass  2.200  BUGABOO  LA  PULGA  Cassette 2.000 

* Los  programas  para  Specirum  son  comercializados  únicamente  v en  exclusiva  por  tnvestromca.  S A 

Estamos  en  la  Feria  de  la  Informática. 

"EL  CORTE  INGLES"  Castellana,  del  4 al  28  de  Abril. 


CANTIDAD 

PRODUCTO 

PRICIO  UMT 

TOTAL 

EMPAQUETADO  * TBANSPOBIS  GASTOS  01  ENVIO 

300 

tocfefyo  namnabno  • favor  (fe  WOCSCOPV  S A jw  p,* 

TOTAL 

Princesa,  47  3.°  G.  Telf.  248  95  70.  MADRID-8 


VIC-1541  UNIDAD  DE  DISCO 


Microprocesador:  6502  de  MOS 
TECHNOLOGY  de  8 bits 
Memoria:  5 Kbytcs  de  RAM  ampliadles  a 32  K 
20  Kbylcs  de  ROM  ampliadles  a 28  K 
l’anlalla:  23  lineas  ele  22  caracteres.  Modulador  para 
conectar  a un  televisor  normal  Salida  monitor  video 
Colores:  8 para  el  marco,  16  pura  el  fonde  de  la  pan 
talla  y 8 para  los  caracteres  individuales,  video  inverso 
Orilleos:  Serm  gráficos  por  teclado  y alta  resolución 
por  redefinición  del  generador  de  caracteres  Isituán 
dolo  en  RAM)  Definición  de  176  por  184  puntos 
l'relatlo:  T ipo  QWERTY  de  62  teclas  más  cuatro  de 
función  definidles  por  el  usuario. 

Sonido:  Tres  voces  de  tres  octavas  cada  una  decaladas 
una  octava  entre  si,  resultando  una  extensión  total  de 
cinco  octavas.  Un  generador  de  ruido  aleatorio  afina 
dlc  para  efectos  especiales,  un  control  general  de 
volumen. 

Programación:  I. enguaje  HASIC,  intérprete  residente 
en  ROM  de  8K.  Posihilidad  de  interceptar  las  functo 
nes  del  Basic  para  crear  nuevas  instrucciones  “a  medí 
da".  F:l  Basic  del  Vic  es  uno  de  los  rápidos  actualmen 
te  en  el  mercado. 

Complementos:  Port  de  usuario  de  8 bits  cnlrada/sa 
lida  más  dos  se  fíales  de  sincronismo 
Bus  de  expansión  pura  ampliaciones  de  memoria 
y periféricos. 

Port  de  juegos  con  conexión  para  dos  potenciómetros 
(paddlesl.  y una  palanca  de  juegos  (joystick) 
Almacenamiento  de  masa:  Unidad  de  cassette  C2N 
de  diserto  especial  para  registrar  programas  y datos. 
Ampliación  de  memoria:  En  caso  de  ser  necesario 
conectar  más  de  un  cartucho  al  mismo  tiempo,  está 
disponible  un  módulo  (VIC  10201  que  permite  la 
conexión  simultánea  de  hasta  seis  cartuchos 


Capacidad  total:  174848  bytes  por  disco. 

Secuencia!;  168656  bytes  por  disco. 

Entradas  de  directorio:  144  por  disco. 

Sectores  por  pista:  De  17  a 21. 

Bytes  por  sector  256. 

Pistas:  35. 

Bloques:  683  (644  bloques  libres!. 

Soportes  de  información:  Discos  standar  de  5 1/4 
pulgadas,  de  una  sola  cara  y densidad  simple. 
Sistema  operativo:  DOS  de  COMMODQRE  inteli 
gente  Itiene  procesador  propio  y no  ocupa  memoria 
del  ordenador  central). 


Monitor  de  lenguaje  máquina:  Facilita  enormemente 
la  depuración  de  programas  en  lenguaje  máquina,  es 
ideal  como  complemento  del  Basic  para  redactar  y 
poner  en  marcha  rutinas  de  alta  velocidad  y manejo 
de  datos  en  tiempo  real.  Instrucciones  y comandos: 
ASSEMBLE,  BREAKPOINT.  DISASSEMBLE, 
ENABLE.  VIRTUAL  ZERO  PAGE,  FILL  MEMORY, 
CIO.  HUNT.  INTF.RPRF.T.  JUMP  TO  SUBROUTINÉ, 
LOAD,  MEMORY.  NUMBER.  QUICK  TRACE. 
REG1STERS.  RFMOVF.  BREACPOINTS.  SAVE, 
TRANSFER.  WALK  y EXIT  TO  BASIC. 

Además  existen  cartuchos  de  ampliación  de  memoria 
de  3,8  y 16  Kbytes. 


VIC-1525  IMPRESORA 


CURSO  DE  INTRODUCCION 
AL  BASIC  PARTE  I vil. 


Método  de  impresión:  Matriz  de  5 x 7 puntos,  impac- 
to por  un  solo  martillo. 

Modo  caracteres:  Mayúsculas  y minúsculas,  simbolos. 
números  y caracteres  gráfieas  del  VIC-20. 

Modo  gráfico:  Puntos  direccionablcs  tbit  image).  Siete 
puntos  verticales  por  columna.  480  columna  máximo. 
Velocidad:  30  caracteres/segundo,  de  izquierda  a dere 
cha.  unidireccional. 

Caracteres* Linea:  Máximo  80.  I Posibilidad  de  impre 
sión  en  doble  ancho). 

Espaciado  entre  lineas:  6 lineas/pulgada  modo  carac- 
teres. 9 lineas/pulgadas—  modo  gráfico. 

Alimentación  de  papel:  Arrastre  por  tractor. 

Ancho  de  papel:  Entre  4.5  y 10  pulgadas. 

Copias:  Original  más  dos  copias. 


En  forma  de  libro  se.  ha  editado  la  primera  y segunda 
liarte  de  un  curso  de  Basic  que  parle  "de  cero"  y 
está  basado  en  el  VIC’  20.  Van  acompañados  de  dos 
cassettes  con  programas  y ejercicios  para  autocontrol. 


PLOTTER  VIC  1520 


Ayuda  programador:  Facilita  la  edición  V depuración 
de  programas  en  Basic  Instrucciones  v comandos: 
RENUMBER.  MFRGE.  HND.  CHANGE.  DELETE. 
AUTO,  TRACE.  STEP.  OFF.  KEY,  EDIT.  PROCi. 
DUMP.  HELP  y KILL. 

Super  expander:  Intercepta  el  Basic  del  VIC  pcrmi 
tiendo  incrementar  sus  instrucciones  y comandos  en 
aplicaciones  gráficas  de  sonido  y juegos.  Instruccio- 
nes  y comandos:  KEY.  GRAPHIC.  COLOR,  POINT, 
REGION,  DRAW.  CIRCLE,  PAINT.  CHAR 
SCNCLR,  SOUND.  RCiE.  RCOLR.  RDOT.  RPOT, 


Método  de  impresión:  Dibujo  mediante  bolígrafos  de 
disefío  especial. 

( "fon  4 colores:  negro,  azul,  verde  y rojo  con  cambio 
desde  programa. 

Cabezal:  Piolet  X Y tipo  tambor. 

Veloeidad  de  impresión:  Media  de  14  car./scg, 
Caracteres  por  linea:  Máximo  80  carac.,  formatos  de 
80.  40.  20  y 10  carac./linca. 

Juego  de  caracteres:  96 
Veloeidad  de  dihujo:264  pasos/seg. 

I.ongitud  del  paso:  0,2  mm.  en  dirección  X c Y. 
Velocidad  de  dibujo  de  linea:  52,8  mm./seg.  en  direc- 
ción X c Y.  73  mm./seg.  en  una  linea  a 45  grados. 
Area  de  dibujo:  480  pasos  (96  mm.)  en  dirección  X. 
Programablc  en  dirección  Y (Máx.  + 999  de  una 

sola  vez). 

Papel:  Rollo  de  4.5  pulgadas  1114  nuil.) 


MONITOR  EN  COLOR  C 1701 


Qz  commodore 


RPEN,  RJOY  y RSND 


Pantalla:  13  pulgadas  1330  mm,). 

Capacidad  de  rrprcscnlurión:  25  lineas  de  40  caracteres, 
R i-solución:  320  lincas  horizontales. 

Compatibilidad:  VIC-20  y COMMOIXíRE  64 
Conectablc  a un  registrador  de  video. 


Amplificador  v altavoz:  Incorporados 


COMPUTER 


H 


microelectrónica 
y control,  s.a. 
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